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• 程序剖析与编程技巧 • 


BASIC 语言中动态数组的实现 

淅江温州师范学院陈宣钱 

摘要： 数组在程序设计中应用得极为广泛，由于 BASIC 语言未能动态地申请分配或释放 
数组元素的存贮单元，程序设计者往往是根据大慨情;兄给数组开辟足够大的存贮空间，不 
能合理的使用内存。本文提出一种建立一维动态数组的一个方案。 

一、引言 元;每当废除一个数组元素，数组长度项就减去一个数 


使用 B A S I C 语言进行程序设计时，对引用的数 
组必须用 D I M 语句加以说明，以确定数组所占的存 
贮空间。然而，程序执行过程中往往不可预知地申请分 
配或释放数组的部分存贮空间，即增加数组所占的存 
贮单元或减少数组所占的存贮单元。 DIM 语句不能 
对数组进行重复性说明，也就不可能随着用户程序临 
时申请，给数组分配更多的存贮单元;数组中无用的存 
贮单元也无法释放。下面就从数组的内部结构出发，探 
讨一维数组的动态实现。 

二、数组的结构和存贮 

数组是在程序运行过程中建立和使用的，每一个 
数组都由一个称为表题的数据结构来标识。如图1所 
示。表题是根据程序中数组说明的先后依次存放在数 
组区内，数组的内容紧 数组表题 
跟在相应数组的表题之 
后。实型占5个字节，整 
型占2个字节，字符串 
型占3个字节。一维数 
组只有一个下标表题就 
占7个字节。其中数据 
项数组长度反映该数组 
在内存所占的字节数； 

数据项下标值则反映数 
组可使用的数组元素的 
个数。数组一经 D I M 
语句说明，这两个数据 
项的内容也就确定了。从以上分析看出，要建立动态数 
组，就必须更改表题的内容。 

三、动态数组的实现 

在表题的数据结构中，反映数组大小的有两个数 
据项: 数组长度和下标值。为了实现申请分配或释放数 
组的存贮空间，就要求在程序运行时，每当引用一个数 
组元素，先把该数组的数组长度项增加一个数据类型 
的长度，下标值加1,为该数组元素分配相应的存贮单 


据类型的长度，下标值减1，释放该数组元素所占的存 
贮单元。如此进行，就可以做到不断地申请分配或释放 
数组的存贮空间。 

有了以上的说明，就可以建立动态数组，具体作法 
是:先 给数组说明一个数组元素，初始化程序中所有变 
量的值，以确定数组表题在内存的地址，并由此计算数 
据项数组长度和下标值在内存的地址。然后根据程序 
执行的需要，当申请一个数组元素时，就先调子程序为 
其分配存贮单元;当释放一个数组元素时，就调子程序 
释放数组元素所占的存贮单元。这样就实现了动态地 
申请或释放数组的存贮单元。 

程序中用来实现动态的数组，最好是用户最后说 
明的一个数组。若第 i 个数组实现动态，则随着第 i 个 
数组所占存贮单元的变化，直接影响其后若干个数组 
的内容，解决方法必须相应移动第 i 个数组之后其它 
数组的表题及其内容。第 i 个数组的表题地址则指向 
数组区中前 i -1 个数组的长度和。 

四、动态数组的应用 

递归调用是高级语言的一种重要功能，尽管 B A S 
1 C 语言不支持递归调用，但人们借助数组还是实现了 
递归调用。由于递归调用的次数往往随着程序的运行 
而急剧上升，究竟给数组开辟多大的存贮空间，难以确 
定。然而，利用动态数组就能够很好的解决这个问题。 

下面是一个用动态数组实现递归定义图形 “ C ” 曲 
线的 B A S I C 程序和运行结果。 

5 HOME : DIM ST (0) 

10 1=1 : PI = 3. 14159 

15 X 0=120 : Y 0=120： NX =0 : NY =0 

20 INPUT “ ENTER LENGTH AND ANGLE = LN ， 

AN ' # 

30 HGR 2 : HCOLOR = 3 : HPLOT X 0, Y 0 

40 CALL 768 

50 IF LN < = 10 THEN 100 

60 CALL 803 : CALL 803 

70 ST ( I)=LN : ST ( I +1 )=AN : 1=1+2 






低八位 


高八位 




高八位 


低八位 

) 

: 


高八位 


低八位 



数组名称 

数组长度 
维 数 
第 n 维下标值 

第1维下标值 




80 LN = LN /4 : AN = AN + PI /4 
90 GOTO 50 
100 GOSUB 200 
105 IF I <3 THEN END 
110 1 = 1-2 

130 LN = ST ( I ) : AN = ST ( I +1) 
140 LN = LN /4 : ANi = AN - PI /4 
150 CALL 834 * CALL 834 
160 GOTO 50 

200 NX = X 0+ LN * COS ( AN ) 

210 NY = Y 0- LN * SIN ( AN ) 

220 HPLOT TO NX,NY 

230 X 0 =NX : Y 0 =NY : RETURN 

运行 结果： 



图二 

程序中调用的三个汇编语言子 程序: 


子程序1 





0300- 

18 



CLC 


0301— 

AD 

6 B 

00 

LDA 

$ 006 B 

0304- 

69 

02 


ADC 

# $02 

0306 

8 D 

06 

00 

STA 

# $006 

0309- 

AD 

6 G 

00 

LDA 

$ 006 C 

030 C - 

69 

00 


ADC 

# $00 

030 E - 

8 D 

07 

00 

STA 

$ 0007 

0311- 

18 



CLC 


0312- 

AD 

6 B 

00 

LDA 

$006 B 

0315- 

69 

05 


ADC 

# $05 

0317- 

8 D 

08 

00 

STA 

$ 0008 

031 A - 

AD 

6 C 

00 

LDA 

$006 C 

031 D - 

69 

00 


ADC 

# $00 

031 F — 

8 D 

09 

00 

STA 

$0009 

0322- 

60 



RTS 


子程序2: 





0323- 

18 


CLC 



0324- 

A 2 

00 

LDX 

# $00 

0326- 

A 0 

01 

LDY 

# $01 


0328 — 

A 1 

06 

LDA 

($06, X ) 

032 A — 

69 

05 

ADC 

# $05 

032 C - 

81 

06 

STA 

($06, X ) 

032 E - 

B 1 

06 

LDA 

($06 ),Y 

0330— 

69 

00 

ADC 

# $00 

0332- 

91 

06 

STA 

($06 )，Y 

0334- 

18 


CLC 


0335- 

B 1 

08 

LDA 

($08 )，Y 

0337- 

69 

01 

ADC 

# $01 

0339- 

91 

08 

STA 

($08 )，Y 

033 B — 

A 1 

08 

LDA 

($08， X ) 

033 D - 

69 

00 

ADC 

# $00 

033 F - 

81 

08 

STA 

($08， X ) 

0341- 

60 


RTS 


子程序 3 




0342— 

38 


SEC 


0343- 

A 2 

00 

LDX 

# $00 

0345- 

A 0 

01 

LDY 

# $01 

0347- 

A 1 

06 

LDA 

($06， X ) 

0349- 

E 9 

05 

SBC 

# $05 

034 B - 

81 

06 

STA 

($06, X ) 

034 D - 

B 1 

06 

LDA 

($06 ),Y 

034 F - 

E 9 

00 

SBC 

# $00 

0351- 

91 

06 

STA 

($06 ),Y 

0353- 

38 


SEC 


0354- 

B 1 

08 

LDA 

($08 )，Y 

0356- 

E 9 

01 

SBC 

# $01 

0358- 

91 

08 

STA 

(#08 ),Y 

035 A - 

A 1 

08 

LDA 

($08， X ) 

035 C - 

E 9 

00 

SBC 

# $00 

035 E - 

81 

08 

STA 

($08， X ) 

0360- 

60 


RTS 



子程序1确定表题中数据项数组长度和下标值项 
在内存的地址。 

子程序 2 分配一个数组元素所需的存贮单元。 
子程序3释放一个数组元素所占的存贮单元。 
程序执行后，除 D I M 中说明的一个数组元素外， 
其它给数组元素分配的存贮单元全部释放。 

五、结束语 

动态数组的实现，对用户来说实现了按需分配存 
贮单元，避免了存贮单元的浪费，达到节约内存的作 
用，但所有这些都是以时间为代价的。 


t •程序剖析与编程技 巧* 

一种 

简易 

汉化 

DOS 

的方法 


哈尔滨船舶工程学院朴一兵 


CEC - I 型中华学习机的用户大多数使用 DOS 3.3 
磁盘操作▲统，虽然该系统在 CEC - I 机的中文状态 
下，比较满意地工作，但因其输出信息全是英文，给不 
懂英文的用户带来了很大的不便。本文给出能使 
DOS 3. 3的出错信息汉化的一个简单方法。在监控状 
态下，只需将下面给出的数据准确无误地输入，就可使 
出错信息全部用汉字给出。 

首先简述一下原理。分析 DOS 3.3 的结构可知， 
DOS 3. 3的出错信息是存放在$ A 974〜 $ AA 3 D 的内 
存单元里，当产生错误后，到相应的地址中取出信息显 
示在屏幕上。出错信息与相应的内存单元的关系是： 

LANGUAGE NOT AVAILABLE $ A974〜 $ A989 
RANGE ERROR $ A98A〜$ A994 

WRITE PROTECTED $ A995〜$ A9A3 

END OF DATA $ A9A4〜$ A9AE 

FILE NOT FOUND $ A9AF〜$ A9BC 

VOLUME MISMATCH $ A9BD〜$ A9CB 

I/O ERROR $ A9CC〜$ A9D4 

DISK FULL $ A9D5〜$ A9DD 

FILE LOCKED $ A9DE〜$ A9E8 

SYNTAX ERROR $ A9E9〜$ A9F4 

NO BUFFERS AVAILABLE $ A9F5〜$ AA08 

FILE TYPE MICMATCH $ AA09〜$ AA1A 


PROGRAM TOO LARGE $ AA1B〜$ AA2B 

NOT DIRECT COMMAND $ AA2C〜$ AA3D 

只要把西文 Ascn 码换成汉字代码就可使输出的 
信息汉字化。比如把 “SYNTAX ERROR ”改成“语法 
错”，可在监控状态下 键入: A 9 E 9 :汗52 6 E 汗35 25 
7 F 32 6 C 20 20 A 0。 最后的20 20 A 0 是“空格”的 ASC 
E 码，其中最后一个字节是最高位为“1”的 ASC I 码。 
这是每个出错信息的结束码，不能是汉字代码，这一点 
应该注意。根据以上规律，我们可以用自己喜欢的字来 
代替岀错信息，当然也可以把英文信息转换成小写字 
母，或用拼音来代替。 

把本文给岀的数据输完后，用 BSAVE CERROR ， 
$ A 974， L$CB 来存盘，在 HELLO 程序中增加一句 
BLOAD CERROR , A $ A 974 。当引导 DOS 后，就可实现 
上述功能。当然也可 INIT —张新磁盘。 


A 974 

7 F 

4 D 

32 

7 F 





A 978 

56 

2 E 

7 F 

47 

6 A 

7 F 

54 

7 A 

A 980 

7 F 

49 

7 C 

20 

42 

41 

53 

49 

A 988 

43 

A 0 

7 F 

30 

4 D 

7 F . 

49 

7 C 

A 990 

7 F 

32 

6 C 

20 

A 0 

7 F 

52 

4 F 

A 998 

7 F 

4 F 

32 

7 F 

2 F 

1 F 

7 F 

39 

A 9 A 0 

20 

20 

20 

A 0 

7 F 

4 D 

5 D 

7 F 

A 9 A 8 

49 

7 C 

7 F 

3 D 

5 C 

20 

A 0 

7 F 

A 9 B 0 

4 D 

5 D 

7 F 

32 

4 A 

7 F 

4 D 

43 

A 9 B 8 

7 F 

3 B 

7 D 

20 

A 0 

7 F 

3 D 

- 6 C 

A 9 C 0 

7 F 

38 

44 

7 F 

31 

75 

7 F 

32 

A 9 C 8 

6 C 

20 

20 

A 0 

49 

4 F 

7 F 

31 

A 9 D 0 

75 

7 F 

32 

6 C 

A 0 

7 F 

44 

4 B 

A 9 D 8 

7 F 

41 

79 

20 

20 

A 0 

7 F 

51 

A 9 E 0 

50 

7 F 

3 B 

52 

7 F 

4 A 

77 

20 

A 9 E 8 

A 0 

7 F 

52 

6 E 

7 F 

35 

25 

7 F 

A 9 F 0 

32 

6 C 

20 

20 

A 0 

7 F 

4 D 

43 

A 9 F 8 

7 F 

3 B 

7 D 

7 F 

49 

7 C 

7 F 

31 

AA 00 

29 

7 F 

31 

75 

20 

20 

A 0 

4 C 

AA 08 

C 5 

7 F 

3 F 

5 F 

7 F 

4 F 

4 C 

7 F 

AA 10 

30 

39 

7 F 

46 

77 

7 F 

44 

63 

AA 18 

20 

A 0 

C 8 

7 F 

43 

59 

7 F 

32 

AA 20 

65 

7 F 

51 

53 

7 F 

41 

79 

20 

AA 28 

20 

20 

A 0 

C 5 

7 F 

31 

4 B 

7 F 

AA 30 

4 F 

71 

7 F 

55 

4 F 

7 F 

49 

37 

AA 38 

7 F 

52 

42 

20 

20 

A 0 

8 D 



4 



• 苹果园 地 • 


苹果机的数据转换 

安徽安庆市地震局 黎捷 


本文主要对该机使用最多的 DOS 和 CP / M 两种 
操作系统的数据转换进行了一些探讨，实现了三种形 
式的数据转换。 

一、浮点 BASIC 各数据形式间的转换 
在浮点 BASIC 中常用的数据输入方法有 三种： 

1 、 直接賦值法:如，行号 A==X X ; 

2 、 DATA 语句提供数 据：如 ，行号 DATA X X , 

XX . 等。 

3、 键 盘输入语句给变量赋 值:如 ，行号 INPUT 变 
量1，变量2等。 

三种输入法相互之间缺少联系。输入后的数据保 
存形式主要有 DATA 和文本文件两种。在浮点 BASIC 
中可以利用程序使数据的 DATA 形式转换成文本文 
件的形式。而未给出文本文件转换成 DATA 的形式。 
这样在一定程度上限制了数据的通用性。 

在浮点 BASIC 中，任何数据(包括 DATA 语句中 
的)和程序都可把它们建立成一个文本文件。利用 
DOS 提供的 EXEC 命令又可以使文本文件以原样返回 
内存。 

利用这一原理，在建立文本文件时就把行号和 
DATA 放在一串数据的前面，存入文本文件。再用 
EXEC 命令把文本文件调入内存。这时内存的数据是 
以 DATA 的形式存在。从而实现一般数据 — 文本文件 
-DATA 语句的转换。 

( 1 ) DATA 转换成文本 文件： 

由 DATA 转换成文本文件，可通过 OPEN 、 READ 、 
WRITE 等命令很容易实现。 

(2) INPUT 转换成 DATA 形式： 

用 INPUT 给若干变量赋值后，通过 OPEN、WRITE 
建立文本文件，在每组数据前应加上行号和 DATA 。 这 
样建立的文本文件是一个含有行号、 DATA 、 数据三部 
分的文本文件。 EXEC 命令把该文本文件调入内存后。 
用 LIST 命令就可以看到用 INPUT 语句输入的数据就 
以 DATA 形式出现了。 

这样，即完成了数据由 INPUT -> DATA 的转换，也 
包含了文本文件转换为 DATA 的过程。（见程序一）。 
程 序一： 

10 INPUT “N，M = ，， : N，M 
20 DIM X(N,M) 


25 C$ =CHR$ (34) 

30 FOR 1=1 TO N 
40 FOR J=1 TO M 
50 PRINT “X(“;I;” 、，， J ; 

60 INPUT X(I ， J) 

70 NEXT J 

80 1NPUT“Y$ = 〃 ,Y$ (1) 

90 NEXT I 

95 INPUT “FILE NAME”;FI $ 

100 D$ =CHR$ (4) 

110 PRINT D $ ； “OPEN ”FI $ “” 

120 PRINT D $ WRITE W FI $ “” 

130 FOR I=lTO N 

140 K = I+500 

150 PRINT K ; “DATA ”； 

160 FOR J=1 TOM-1 j 

170 PRINT X(I ,<!);“，”； 

180 NEXT J 

185 PRINTX(I ， M); “，”, 

190 PRINT C $ f Y$ (I) ； C$ 

200 NEXT I 

210 PRINT D $ ； “CLOSE” 

220 END 

100 —— 210 建立一个含有行号、 DATA 及数组变 
量的顺序文本文件。 

在程序中直接给字符串变量加双引号运行时会发 
生错误。 

二、 DOS 和 CP / M 操作系统间的转换 

用 CP/M 操作系统中的 APDOS 程序很方便的将 
DOS 操作系统盘片上的数据文件转换到 CP/M 操作系 
统盘片上。但是 CP/M 系统中的数据却不能向 DOS 系 
统转换。 

DBASE H 具有很强的管理数据的功能，如能转换 
成 DOS 系统中的数据文件，就可为 DOS 中的浮点 
BAISC 享用。给数据处理增加了一条途径。特别是数据 
较多时，可避免重复输入工作。也拓宽了数据库软件的 
交流。 

CP/M 和 DOS 虽是两个不同的操作系统，但对数 
字、字符的内码来说，却是完全相同的。利用这一原理 
在 CP/M 中首先用 DDT 把数据调入内存，再移到内存 





高地址处。为避开系统占用的内存空间，最好存在 
5000 H 以上的内 存区; 再进行热启动 DOS 操作系统。 
用程序从内存中读出高地址中的数据，然后存到数组 
变量中，当读完内存后再建立一个文本文件。可根据需 
要用上节介绍的方法转换成所需的数据形式。 

转换的关键在于正确的给出每个变量的长度。在 
CP / M 系统中文本文件在内存中的存放格式有 三种： 

( 1 ) 1变量1 | 变量 2 丨…丨回车 | 换司 各变量按顺 

序排列，以回车和换行来结束一条记录。 

⑵ I 变量 i |，| 变量 4， H 回车 I 换司 各变量之间 
均有逗号分开，以回车和换行结束一条记录。 

(3) | 变量 l | 回车_ 彳皆变 量 2 |回车_ 各个变量都 

以回车和换行结束。 

变量长度的给出有两种 方法： 

1、 在转换程序中逐个％程序中给出，包括每个变 
M 的类型等(见程序三）。 

2、 在内存中寻找变量间的分隔符(即逗号)或回车 
换行符的位置，再计算出该变量的长度。 

三、汉字的转换 

在数据文件的转换中经常有汉字，汉字的转换涉 
及到汉字_码问题，各种版本的汉字系统其汉字内 
码也各不相同。即使用同一汉卡，在不同的系统中的汉 
字内码也不相同。目前常用的汉字内码有2字节、3字 
节、4字节等。但无论那种汉字系统，尽管内码各不相 
同，但它们的区位码却是相同的。因此汉字的转换必须 
以区位码为中间媒介。 

下面以苹果兰汉卡为例对两种类型汉字编码间的 
转换进行讨论。 

1、 带有标志符的编码 

以汉字的第一个字节为汉字标志码，例如取值 
127为繁体、 U 6 为简体标志，其后跟区、位码。 

2、 与区位码相对应的编码 

它是以汉字内码的前-个或二个字节对应区码， 
以后一个或二个对应位码来与区位码对应。 

苹果兰汉卡的汉字是采用三字节内码。第二字节 
为区码，取值在 48—119 间、第三字节为位码，取值在 
32— 126间。在汉字 DBASE II 中.汉字采用二字节内 
码，第一字节对应区码取值在 176—247 间，第二字节 
对应位码取值在 160-254 间。由此可见这两者的区位 
对应值仅相差一个系数128。若把 DBASE fl 中的汉字 
转换成 DOS 系统中的汉字仅需把区位值分别减去 
128. 再在前面加上汉字标志码126或127,结合第二 
节介绍的方法就可以把 DBASE I 中的汉字转换成 
DOS 系统七 BASIC 可用的任何一种形式。 

程序4是转换一电话簿的例子，该电话簿是在汉 


字 DBASE I 下建立的,其结构与数据如下： 

STRUCTURE FOR FILE ： B ： DHL . DBF 
NUMBER OF RECORDS ： 00003 
DATE OF LAST UPDATE ： 00/00/00 
PRIMARY USE DATABASE 


FLD 

NAME 

TYPE WIDTH DEC 

001 

姓名 

C 

006 

002 

单位 

C 

008 

003 

电话 

N 

006 

* * TOTAL * * 


00021 

00001 

王小斌 

市机械局 

513550 

00002 

张军 

市交通局 

543258 

00003 

李玉海 

市化工所 

513416 


现需将其转换成 DOS 中以 DATA 形式出现的浮 
点 BASIC 中。首先将其考贝成文本文件，再用 DDT 调 
入，移至 5000H o 热启动 DOS 进入汉字状态，再运行程 
序三,得到一新文件，然后 EXEC 新文件。 

100 DATA “王小斌” “市机械局” 513550 

101 DATA “张军” “市交通局” 543258 

102 DATA “李玉海” “市化工所” 513416 
程序三中， LN 表示变量的长度， 90 句为转换姓 

名，100句为转换单位，110句用来转换字符与常数，在 
这里为转换电话号码。 390 句是用来转换在汉字中夹 
有的字符或数字^ 

程序三 

10 REM 数据间带分隔符逗点， 0$ 为 】 ，否则为零 
20 Q-0 

30 HIMEM ： 24570 

40 I1 = 24575 ： REM 数据首地址 

50 INPUT“N = ”; N 

60 DIM X $ (N) ， Y $ (N) ,Z(N) 

70 C$ =CHR$ (34):REM C$ 为双引号 
80 FOR 1 = 1 TON 

90 LN = 6:L$ = “ ，，: GOSUB 380：X $ (I)=C$ +L$ +C $ 
100 I1=I1+LN + Q:LN = 8:L$ = “ ，，： GOSUB 380 ： Y$ (I) 
=C$+L$+C$ 

110 Il=Il-fLL-f-Q：J = 6：Al $ =“ ，，: GOSUB 310 ： Z(I) = 
VAL (B $ ) . 

120 Il=Il+J+2+Q 
130 PRINT X $ (I) ， Y $ (I) ,Z(1) 

140 NEXT I 

200 INPUT “ 文件名 ” ;W$ 

210 D$ =CHRY(4) 

220 PRINT D $ ;“OPEN”W $ “” 

230 PRINT D$ ; “WRITE”W$“” 

240 FOR 1=1 TON 

250 K=I+99:REM 行号从 100 开始 
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苹果园地 


APPLESOFT 程序保护探讨 


苏州师范专科学校 赵根林 


内容提要 文幸系统地阐述了防护 LIST 命令、设计 LIST 效果的原理及其 
实现方法，同时介绍了破解各种防护的手段。使读者对 APPLESOFT 程序结 
构有更深入的了解。 


APPLESOFT 在接收到命令后首先测试路标单元 
$ D 6 的最高位 Bit 7 , 如果 Bit 7= l 则把所有 BASIC 命 
令 (DOS 命令除外)都看成是 RUN ， 若 Bit 7 = 0 则先辨 
认命令，后转入相应的命令入口执行。假如接收到 
LIST 命令，就把$ 67对单元所指地址处的程序码译成 
APPLESOFT 语句，显示于屏幕上。所以防止 LIST 可以 
'从三个方面来入手。 

一、 禁止命令的输入 

用 BASIC 命令 POKE 214,128 或监控输入 D 6：80 
可以人为地使零页 $ D 6 单元的 BIT 7=1， 以后不管输 
入什么 APPLESOFT 命令，均执行 RUN 动作。 

要破解这种保护，只要事先设定好 RESET 向量， 
使强迫进入监控，再把 $ D 6 的 Bit 7 = 0。 也可以在 DOS 
中使用 “ FP ” 命令，此命令使 $ D 6 的 Bit 7 = 0, 但同时清 
除了程序，所以还必须想办法恢复程序(这可参阅北师 
大出版社出版的《苹果 I BASIC 程序设计》)。 

这种保护法不适用于汉卡中文状态，因为汉卡将 
此单元用于光标定位。 

二、 修改程序区行讯息 


260 PRINT K;“DATA”;X$ (I);“, ，、 Y$ (I) ; “,，，;Z 
( I ) 

270 NEXT I 

280 PRINT D $ ； “CLOSE，，W $ “，， 

290 END 

300 REM 读和转换常数、字符子程序 
310 B$ = W,, ： B2 = 0 
320 FOR K=1 TO J 
330 B2=PEEK (II+K) 

340 B $ =B $ +CHR $ (B2) 

350 NEXT K 
360 RETURN 

370 REM 读和转换汉字子程序 


APPLESOFT 程序行讯息包括链指针、行号、语句 
行实体及结束标志。其中键指针指示了下一行语句所 
在的位址，而行号一般是依次递增的。如下列的示范程 
序(下文凡谈及“示范程序”均指该“示范程序”原样，不 
考虑各项修改；内存内容也是如此）。 

10 TEXT : HOME : POKE32 ,7: PRINT 

20 PRINT“ +. +，， 

30 PRINT “！ BY ZHAO GENLIN ! ，， 

40 PRINT “！ ON JAN. 1,1990!” 

50 PRINT “！ . +，， 

60 POKE 32,0 

RUN (结果略)程序 奔内存 中的存放格式如下： 

0800-00 11 08 0A 00 89 3A 97 
0908-3A B9 33 32 2C 37 3A BA 
0810-00 33 08 14 00 BA 22 2B 
0818- 2D 2D 2D 2D 2D 2D 2D 2D 
0820- 2D 2D 2D 2D 2D 2D 2D 2D 
0828- 2D 2D 2D 2D 2D 2D 2D 2D 
0830- 2B 22 00 55 08 1E 00 BA 


380 FOR J 2 =l TO LN 

390 ZF = PEEK ( I 1+ J 2 ):IF ZF <160 THEN B$ = 
CHR $ ( ZF )： L $ = L $ +B$ ;GOTO 470 
400 H = PEEK ( I 1+ J 2)-128 
410 IF H <48 OR H >119 THEN 470 
420 H 2= PEEK ( I 1+ J 2+1)-128 
430 IF H 2<32 OR H 2>126 THEN 470 
440 H $ = CHR $ (126)- fCHR $ ( H )+ CHR $ ( H 2) 
450 L $= L $+ H $ 

460 J 2= J 2+1 
470 NEXT J 2 
480 RETURN 
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0838 - 22 21 20 20 20 20 20 42 
0840- 59 20 5 A 48 41 4 F 20 47 
0848- 45 4 E 4 C 49 4 E 20 20 20 
0850- 20 20 21 22 00 77 08 28 
0858- 00 BA 22 21 20 20 20 20 
0860- 20 4 F 4 E 20 4 A 41 4 E 2 E 
0868- 31 2 C 20 3^ 39 39 30 20 
0870- 20 20,20 20 21 22 00 99 
0878- 08 32 00 BA 22 2 B 2 D 2 D 
0880- 2 D 2 D 2 D 2 D 2 D 2 D 2 D 2 D 
0888- 2 D 2 D 2 D 2 D 2 D 2 D 2 D 2 D 
0890- 2 D 2 D 2 D 2 D 2 D 2 D 2 B 22 
0898- 00 A 3 08 3 C 00 B 9 33 32 
08 A 0- 2 C 30 00 00 00 01 54 

链指针如下图（图示 格式： 下面是链指针存放地 
址，上面是链指针内 容）： 

| 0811 | 0833 | 0855 |^? | 0877 | 

[801. 802] I ― >\SU. 812[ I ― ►[8337834] • ~~ >[8557856] 


— | | 0899 1^5. | 08A3 | 0000 | 

L»|877. 878] I~» |899. 89A| '~ —8A3. 8A4[ 

行号存放如下图(格式同上）： 



LIST 子程序就是利用行讯息中&链指针来寻找 
下一行语句存放地址的，而 RUN 不利用链指针。行号 
只起标识及供 GOTO 、 GOSUB 使用， RUN 也是不利用 
行号的。据此，将行讯息作适当的修改，就能得到多种 
防护措施,而不影响运行结果。不过， GOTO 、 GOSUB 需 
要用到行讯息，所以修改应谨慎。 

1、 反复列印同一行 

如果使本行行讯息的链指针指向本行首地址，则 
LIST 时，此行程序反复列印，直到按下 CTRL-C 或 
RESET 0 

作为例子，修改第一行链指针单元使之指向第一 
行首址$ 801。在 APPLESOFT 状态下输入 POKE 2049, 
J 或监控下输入801:01，则 LIST 使示范程序第一行反 
复列印，而运行结果不变。 

2、 只列印第一行 

在 APPLESOFT 状态下输入 POKE 2049, 0或在监 
控下输入801:0,则 LIST 只印出一行，运行结果不变 


此修改后，$800、$801单元内容均为“00”，列印 
时误认为程序结束而不再继续，而 RUN 是以连续三个 
“00”作为结束点，因此不受形响。 

3、 隐没一些重要的语句行 

程序中往往有一些叙述是重要的，我们希望在 
LIST 时将它们隐藏起来而不影响运行。 

如示范程序中，希望把20〜50号语句隐藏起来， 
则可把第10号语句行的链指针直接指向60号语句的 
首址。在 APPLESOFT 状态下输入 POKE 2049,153 或监 
控下输入801:99。 

注意 , GOTO 、 GOSUB 的目标行不得遮没，否则显 
示 UNDEF’D STATEMENT ERROR 。 

要破解改变链指针的保护,最简单的是重新输入 
一任意行号， APPLESOFT 会把整个程序区的链指针重 
新接好。 

要防止这种破解可人为地破坏程序尾指针$ AF 、 
$ B 0 单元，这样使不能输入任何语句，但可 RUN ， 不 
过此时已不能存盘了。 

4、 修改行号讯息 

行号对 RUN 不起作用：可以把它改成各种形式， 
从而使得程序难以修改。 

例一、使行号不依次增大 
对示范程序作如下修改： 

* 803 ：3 C N 813：32 N 835：28 
RUN 结果不变 

LIST 结果如 下:. 

60 TEXT ： HOME：POKE 32,7 ：PRINT 

50 PRINT “ +.•• +，， 

40 PRINT “！ BY ZHAO GENLIN !” 

40 PRINT “！ ON JAN . 1，1990!” 

50 PRINT “ +.+ ” 

60 POKE 32,0 

这样的修改对 GOTO 、 GOSUB 等转向语句也须注 
意，此种语句搜寻目标行每次都是从程序首址开始，利 
用行讯息依次向下找，找到后执行，如果发现目前行号 
已大于目标行号，但仍未找到，则显示 UNDEF’D 
STATEMENT ERROR 0 
例二、大行号保护 

APPLESOFT 规定语句行号最大不超过63999,如 
果输入大于限定行号的语句、显示 syntax error 。 
因此可以修改行号建立大于限定行号的语句行而不影 
响运行结果。 

对示范程序作如下修改： 

* 803 ：3 C N 813 ：FF FF N 835 ：FE FF N 857 ：FF FF N 
879 ：FF FF 

LIST 结果 如下： 










6 0 TEXT : HOME ; POKE 32 ， 7: PRINT 

65535 PRINT “ +.+ ” 

65534 P^INT a J ON JAN . 1,1990 J w 

60 POKE 32,0 

RUN I 

如果 GOTO . GOSUB 等转向语句目标行号改为大 
行号，运行时显示 SYNTAX ERROR 。 
t 破解这种保护只能再修改内存。 

从以上的例子我们还可得到启赛，因为转向语句 
每次搜寻都得从头开始，所以在较长程序中把子程序 
集中放在程序的开头，就可减少搜寻时间，从而加_了 
运行速度。 

三、装饰 LIST 效果 

UST 输出需要经过监控的 COUT 程序 ，在 COUT 
中字符先与$ 32单元内容作 AND 操作，‘所以$ 32单 
元的值不同%输出也不同。另外，控制字符是不能在屏 
幕上看到的，它在 COUT 时只产生一些特殊作用，如退 
格、发声、换行等等，所以加入一些控制字符可装饰 
LIST 效果。 

1、 修改显示方式代码单元 

$ 32这个单元的值决定了显示方式， $ FF 为正 
常， $7 F 为闪烁， $3 F 为反相。 

如果改变其值，则输出结果变得非常奇怪，如改为 
$80,则输出信息全为空格。 

破解它的最简单办法是按 RESET 键，或在监控下 
把它的值改为 $ FF 。 

2. CTRL - H 的利用 、 

CTRL - H 即为删餘键它使输出光标后退一 
格。利用它可将程序隐没及伪装。由于这个字符无法 
直接输入到程序中，必须采用先预留空间，后直接填入 
的方法。 

例一 、隐$程序 , 

上文提到过利用修改链指针可使 LIST 只列印一 
行，但还是列出了一行。如何一行也不列出呢？可利用 

CTRL - H 。 、 

方法如下： （ 以示范程序为例 ）• 

① 加入第5号语句 :5 REMX (注意 REM 与 X 间不 
留空格）。 

② 列印第5号语句 ( REM 与 X 间自动插入一空 

格)： 

5 REMX 
UST 5 
5 REMX 

. ⑧自 X 往前数( X 本身不算），凡是可见字符都算 
数，数到5为止，共有七个字符空间。 

④重新键入第5号 语句： 


5 REMXXXXXXX 

REM 后七个“ X ”，七个空格。 

，⑤考 入&控 ' 

0800 : 00 15 08 05 0 t ) B 2 58 58 

0808-58 58 58 58 58 20 20 20 

, 0810-20 20 20 20 00 

自 $806 到 $80C 的 4 七个 “58” 即是 “X” 的 ASCII 
码，之后的七个 “20” 是空格的 ASCII 码。 

⑥ 将$ 806—$ 80 C 的七个“58”改为“08”，“08，，即 
为 CTRL-H 的 ASCII 码。 

⑦ 回到 LIST 时，5号语句不见了，接着 
POKE 2 049,0 修改链指针，整个程序都不见了。 

. 例二、伪装程序 .. .. 

现在把示范程序的60号语句伪装成 POKE 64, 
10,方舂卽 下：" 

仿照例一的①〜:④步，计算得到 X 与3间的字符 
空间为10个，重输60号语句 如下： 

60 POKE 32, 0: REMXXXXXXXXXX 64, 10； REM 
KEYWORD 

进入监控可看到 $8 A 4 〜 $8 AD 如十个“58”，将 
它改为“08”。回到 “]”， UST 结果 
60 POKE 64,10： REM KEYWORD 

破解 CTRL - H 保护的最有效方法是用速度函数 
SPEED 来降低输出速度，使字符一个个输出，当在某 
一行停较长时间，且过7会前面已显的字符在发生变 
化，则可断定陷阱就在此处。 

3、 CTRL ~ D 的利用 

程序中使用 DOS 命令，第一个字符必须为 CTRL - 

这是罔为 DOS 视讯中断处理子程序在做 COUT 前 
会判断[§5车后第一个字符是否为 CTRL - D ， 若是则收 
集 CTRL - D 后的 DOS 命令，继而跳到 DOS 命令剖析子 
舉序參行。利用这一原理，在程序中埋设 DOS 命令，使 
LIST /时也产生 DOS 动#，此法一定要 DOS 在内存时 
方有效 9 且应注意,命令必 ㉚ 埋在 RUN 不到的地方，如 
REM 、 DATA 、 THEN 、 GOTO、GOSUB 等描述项后。又因 
DOS 视讯中断程序认可 DOS 命令一定要是回车后第 
一个字母为 CTRL - P ， 所以在加入 CTRL D 和 DOS 命 
令前必须先产生回车 “ return ”。 

由于回车字符无法直接加在程序中，仍采用先留 
空间后填入的办法。 RETURN 和 CTRL-D 的 ASCII 码 
分刿为 “0 D ” 碱“04”。 

以在示范程序中加入 DQS 命令 “ INT ” 为例来说明 
实现方法。 

加入语句 5 REMXXINT , 进入监控将$ 806, $ 807 
单元的“58”改为 “0 D ” 和“04”，回到状态， LIST 结 
果： 





贵刊1989年第6期中 《 APPLE 汇编语言高速排序》 
一文所附汇编语言子程序，要改正4处方可正常 运行： 



误 

正 

374 

A 2 

02 

39 A 

B 4 

D 4 

39 B 

B 0 

D 0 

3 C 2 

AB 

A 8 


在文中也有一处错误 ：“当 a =0， b = 数组长度时， 
即是对整个数组的全部数据进行排序。”这句话与前述 

“子程序对从 a +1 起的 b 个数据进行排序 . ”是相矛 

盾的。事实上，数组中头一个下标为0的变量不能参加 
排序。如要对全部数据排序需作如下调整： 

* 335 ：EA 

* 39 E : EB 

* 3 A 0：1 A 90 

* 3 A 5： B 0 

这样改后，成为对从 a 至 a + b 共 b +1 个数据进行 
排序。但这只是修正，算不上改进。 

笔者为排序达到全部数据，作了尝试性的改进，改 
后的程序附后，用法与原文程序完全一样，而且可以排 
N + 1 个，即数组的全部数据。该程序长度比原文程序 
少了 一个字节，但速度显著提高，对 N =1000 的数组排 
序仅需5秒。 

由于该程序中几处使用了未公布的6502怪指令 
码，可读性较差，并且仅迻于6502,对于 65 C 02 之类处 
理器的微机还要作些相应修改。 


原文程序和本'文程序均仅限于实型数组的排序， 
不能用于整型或字符串的数组 9 


0300- 

A9 

0B 

8D 

F6 

03 

A9 

03 

8D 

0308- 

F7 

03 

60 

20 

E3 

DF 

84 

3D 

0310- 

85 

3C 

20 

BE 

DE 

20 

67 

DD 

0318- 

20 

52 

E7 

A5 

50 

85 

3E 

85 

0820- 

40 

A5 

51 

85 

3F 

85 

41 

A7 

0328- 

41 

87 

3A 

87 

3B 

A5 

40 

46 

0330- 

41 

6A 

A8 

05 

41 

F0 

D3 

98 

0338- 

85 

40 

0A 

0A 

86 

FB 

26 

FB 

0340- 

65 

40 

85 

FA 

A5 

FB 

65 

41 

0348- 

85 

FB 

A5 

3E 

38 

E5 

40 

85 

0350- 

42 

A5 

3F 

E5 

41 

85 

43 

A5 

0358- 

3B 

A4 

3A 

85 

4E 

84 

4F 

85 

0360- 

FF 

98 

0A 

26 

FF 

0A 

26 

FF 

0368- 

65 

4F 

AA 

A5 

FF 

65 

4E 

A8 

0370- 

8A 

65 

3C 

AA 

98 

65 

3D 

A8 

0378- 

8A 

20 

F9 

EA 

18 

A5 

5E 

65 

0380- 

FA 

85 

60 

A5 

5F 

65 

FB 

85 

0388- 

61 

20 

B6 

EB 

B0 

12 

E6 

3A 

0390- 

DO 

02 

E6 

3B 

A5 

42 

C5 

3A 

0398- 

A5 

43 

E5 

3B 

90 

89 

B0 

B7 

03A0- 

A0 

04 

B3 

5E 

B1 

60 

91 

5E 

03A8 

8A 

91 

60 

88 

10 

F4 

A5 

4F 

03B0- 

E5 

40 

A8 

A5 

4E 

E5 

41 

90 

03B8- 

D5 

DO 

A0 

A5 

4F 

C5 

40 

90 


03C0- CD A9 00 B0 96 ' 

唐山白玉瓷厂 张亭 


多多多多多多多多多多多多参承多多多多多多多多多多多多参；；；多多多多多多多多多多多多 

5 REM 简单说明，具体可仿以上几个的运用方法。 


LANGUAGE NOT AVAILABLE 

因为此时无 INTEGER BASIC 在内存，否则将进 
入整数 BASIC 状态。 

所有 DOS 命令均可埋设，如果埋设的命令错误或 
不是 DOS 命令，则 LIST 时显示 SYNTAX ERROR 。 不 
过得提醒一下，即使命令正确，在完成 DOS 动作且把 
剩余程序 LIST 完后，均会显示 SYNTAX ERROR ， 除非 
执行 DOS 命令后，进行内存初始化。如 “ FP ”、“ PR # 
6”、“ LOAD 文件名”等。常用的是 FP 和 PR # 6,最好的 
办法是用 “ INIT ” 命令。 

4、其他控制字符的利用 

还有一些控制字符可用来装饰 LIST ， 这里只作一 


CTRL - T 反白及回复，必须配对使用，使夹在其中 
的字符反白。但在一些兼容机上只有接通打印机才反 
白。 

CTRL - J 空行，此字符无法直接输入。 

CTRL-G 发声。 

如果为防止他人把程序 LIST 到打印机上，则可选 
用的控制字 符有： 

CTRL - Q 进行高分辨页的硬拷贝 ; CTRL - L 产生换 
页 功能; CTRL - N 字体放大，碰到换行自动取消 ； CTRL - 
O 字符 缩小; CTRL - R 取消字体 缩小; 等等。更可以使 
用 ESC 码来产生更多的打印效果，具体请参阅有关打 
印机使用手册。 








苹果园地 


利用微机绘制 RLC 电压谐振曲线 


黑龙江呼兰师专吴全有 § 

. § 


本程序利用微机绘图方法对电阻 ( R )、 电感 ( L )、 
电容 ( C ) 串联回路的电压，画出了电感上的电压 V ( L )、 
电容上的电压 V ( C ) 和感抗 X ( L )、 容抗 X ( C ) 及电流 I 
随角频率 W 的变化曲线，并标示出谐振点的角频率 
W 0, 计算岀谐振频率 F 0。 可供电气工作者计算不同 LC 
值的谐振频率。可以给 Q 不同值，而看其在不同品质 
因数 ( Q 值)下曲线的变化规律。在 LC 值不变的情况 
下，当 Q 值大 ( R 较小）时， V ( C )、 V ( L ) 及 I 的尖峰较 
大;当 Q 值小 ( R 较大)时， v ( c )、 v ( L ) 及 I 较平坦。因 
此，该程序还可做为研究人员研究电压谐振的助手，也 
可做为教学人员实验和演示之用。 

为使图中能绘出谐振点，在程序的800〜850行设 
置了可变参量 K ， 借以改变横座标 W 的起止取值范 


30 K = 600 ： V=50. 

40 CALL HM 

50POKE Vl ， 2:POKEHl ， 6: PRINT “绘制 RLC 电压谐振曲线 
图 'CALLCC 

60 POKE VI, 5 .PRINT “ 说明 ：，，: CALL CC 

70 POKE H1,9：PRINT “ 电感单位 ( 亨利 ） ”: CALL CC 

80 POKE HI,9 ： PRINT “ 电感单位 ( 微法 ) ，，: CALL CC 

90 POKE HI ,9:PRINT “ 电阻单位 ( 欧姆 ） ，，: CALL CC 

100 INPUT “L= ”; L 

110 1NPUT“C = ”； CO 

115 INPUT “R= ”； R 

- .，\ • ， • t 

120 CALL HM 

130 C = C0 * 0.000001 
140 HGR2：HCOLOR = 3 


围。同时为了尽可能扩大 RLC 的取值范围，程序的250 
〜 2 S 0 行设置了比例系数，保证了各条曲线不超岀图 
形的边界。本程序在 APPLE I 机调试通过。 

使用 方法： 

1、 开机自动进入中文状态，键盘输入 R 、 L 、 C 值， 
回车后开始绘图。 

2 、 绘图完成后，敲空格键即自动联机打印图形。敲 
其它键，则仃止运行。 


150 HPLOT 20,5 TO 20,150 TO 250,150 

160 HPLOT 20,5 TO 18,14 

170 HPLOT 20,5 TO 22,14 

180 HPLOT 250,150 TO 241， 148 

190 HPLOT 250,150 TO 241,152 

200 POKE V1,0：PRINT “V”：CALL CC 

210 POKE VI,8 ： PRINT “0 ”； ： CALL CC 

220 POKE VI,8 ： POKE HI ， 32: PRINT “W ”： CALL CC 

230 W0=1/SQR (L*C) ： WO=INT(WO* 100)/100 



10 HIMEM ： 36864 ： POKE 37984,0 ： PR# 3 ： PRINT** w ： 
POKE 43603,3, POKE 43604 ， 192 + 3: POKE 43605, 48 ： 
POKE 43606, 192-f 3 ： POKE 54, 189， POKE 55, 158 ： 
POKE 56,129：POKE 57a58：FOR I«=l TO 15：GET A$ » 
NEXT 

20 D$ =CHR $ (4)：HM = 49941 ： CC=49944 ： H1 = 214 ： V1 


235 GOSUB 800 , 

240 I1=V/(SQR(R 个 2+(W0* L—1/(W0 * C)) 个 2).) 

250 K0=I1 * R/80 

260 K1=I1 * W0 * L * 1. 3/120 

270 K2=1/(30*K*C)/130 

280 K3=(220*K*L)/110 

285 W1=W0/K 

290 HPLOT Wl,150 TO Wl，147 
300 FOR W=30 TO 220 
305 P=W *K 

310I=V/(S1<JR([^2+(P*L_1/(P*C 》， 2)) 

330 Y=147-I*R/K0 
340 HPLOT W,Y 

350 VL=I*P*L/K1 ： V2=147-VL 
390 HPLOT W ， V2 
400 VC = I/(P*C)/K1 
410 V2=147-VC 


215 




CATALOG 功能扩充 

广州三十二中 谢敬辉 

《苹果园》八九年第四期的《对 CATALOG 命令的 
改进》提出了使 CATALOG 具有与 DIR 相似的功能，但 
只是改进了列目录的范围。笔者为进一步扩充 
CATALOG 的功能，编写了以下程序，使它在 
CATALOG 时列出卷号及空扇区数，还列出已删的文 
件名，名前带“ # ”。 

先键入本程序，再 300 G 便可具有以上功能。 


两单元内容，原值分别为$ 15( 个数）和$ 16( 个数加 
1 ) 

• 3 .若列长目录时去掉暂停功能可 AE34:60, 复原 

只须 AE34:CE 。 

4•有时不须列完全部目录时，中途退出 
CATALOG 可按 CTRL — €或 QUIT 键，修改 如下： 
AE 39：4 C 69 BA 。 BA 69:20 OC FD C 9 83 FO 

03 4 C 3 C AE 4 C 7 F B 3。 若要复原可 
AE 39：20 0 C FD 。 

说明一点 ：由于 系统的 DELETE 动作，列已删文件 
名时，第三十个字符变为一些反相的混乱字符，是没有 


$300— $31 F 为更改 CATALOG 部分入口， $320— 
$ 365为列出空扇区数，$ 366— $ 36 D 为对已删文件 
名的处理。 

由于本程序与《对 CATALOG 命令的改进》一文所 
提方法并无冲突，互不干涉，所以两种方法可同时并 
用，只须修改部分入口地址即可。 

另外，还有几个小技巧可使 CATALOG 功能得以 
扩充。汐 

1. 将 $ DA 存入单元$ AE 1 C ， 在列目录时可列出 
文件名的 ASCII 码值，起到对加怪符保密文件名的破 
密和使用中文名称的文件的作用，只须以 ASCII 码值 
存入 $ AA 75 文件名缓冲区，再调相应功能程序，便可 
使用到那些不易看清的文件。复原只须 AE 1 C : ED 即 
可。 

2. 由于在中文下屏幕行数的不同，所以更改每帧 


什么意义的，并不影响该功能。以上全部修改及程序均 


在 CEC — II 及 APPLE 机上通过。 


0300- 

A9 

AC 

8D 

C3 

AD 

8D 

C6 

AD 

0308- 

A9 

03 

8D 


AD 

8D 

C8 

AD 

0310- 

A9 

20 

8D 

C4 

AD 

A9 

66 

8D 

0318- 

C7 

AD 

A9 

EB 

8D 

DA 

AD 

60 

0320- 

20 

2F. 

AE 

A9 

59 

A0 

03 

20 

0328- 

3A 

DB 

A9 

00 

85 

40 

85 

41 

0330- 

A0 

8C 

18 

B9 

F2 

B3 

F0 

0E 

0338- 

0A 

90 

FB 

48 

E6 

40 

DO 

02 

0340- 

E6 

41 

68 

18 

90 

F0 

88 

DO 

0348- 

E9 

A6 

40 

A5 

41 

20 

24 

ED 

0350- 

20 

2F 

AE 

20 

2F 

AE 

4C 

C9 

0358- 

AD 

C6 

D2 

C5 

C5 

A0 

D3 

C5 

0360- 

C3 

D4 

CF 

D2 

A0 

.00 

A0 

A3 

0368 - 

BD 

C8 

B4 

4C 

E4 

AD 

00 



显示文件名个数是有必要的。可更改 AE 3 D 和 ADA 4 

多多多参参多多多参多參多参多多多多多多多多多參多多多多多參多參多多多多濟多多 


420 HPLOT W ， V2 

480 XC=(1/(P*C))/K2 ： XL=P*L/K3 
500 IF 150 -XC>0 THEN HPLOT W ， 150-XC 
510 HPLOT W,150-XL 
520 NEXT W 

530 V2=(150-XL)/20 

540 POKE Vl ， V2:POKE H1,27：PRINT “X(L)”:CALL CC 
550 POKE VI, 1：POKE H1,3：PRINT “X(C)”：CALL CC 
560 POKE VI,9 ： PRINT “R=” ; R; 欧 “”； 

565 PRINT “L = ”;L; “ 亨 ” 

570 PRINT “C = _ ; C0 ; “ 微法 ”；: CALL CC 
580 POKE VI, 0 ： POKE HI ， 9: PRINT“RLC 电压谐振曲线 
图 ，，: CALL CC 、 

590 GOSUB 700 


700 V2= (147-11 * W0*L/Kl)/20 
703 Y ==(147-11 *R/K0)/20+l 
705 W = Wl/8 

710 POKE Vl t V2：POKE HI，W 6:PRINT “V(C)”； : CALL CC 
720 POKE VI,V2：POKE H1,W + 2:PR1NT “V(L)”,：CALL 
CC 

730 POKE Vl ， Y:POKE H ， W1:PR1NT “1”, : CALL CC 
740 POKE VI, 8： POKEHl ， W+l: PRINT M W0 W ； : CALL CC 
745 F0 = W0 * . 000001/(2 * 3. 14153 )： F0 = INT (F0 * 
1000)/1000 

750 POKE Vl,6：POKE HI, 23 ： PRINT “F0 = ”； F0; “MC”;: 

CALL CC tf 

755 POKE V1,8：CALL CC 
760 RETURN 


600 GETG$ 

610IFG$<>“ ” THEN E 
620 PR# l：POKE 1913,2 


800 FOR W=1 TO 100 

810 IF W0/K>150 THEN K = K+100:GOTO 840 
820 IF W0/K<50 THEN K=K-100：GOTO 840 


630 PRINT CHR$ (17) 
635 PR# 0 
640 E 


830 GOTO 850 
840 NEXT 
850 RETURN 
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一、问题 Programmed Lpgic for A«itomated Teaching 的 

的提出 ▲写 ，意即于自动教学操作的程序逻辑”)。 I 959 年 

计算机辅助 首先创建了一次只能处理一个终端的 PLATO — I 系 

教学 （ CAI ) 起源 统;1%8年开发了大规模的 PLATO — IV 系统，能连接 

于六十年代初 分布于800哩范围内的4000个学生终端，同时教几百 
期。当时，行为主 种课程研究结果表明，许多学生和教师改变了对 
义心理学家斯金 PLATO 材料的态度。在数学学习方面， PLATO 的 CAI 

纳提倡的程序教 材料明显优于传统的课堂教学计划 Alderman ， 

学和教学机器运 1977)®。 （3) 迈特公司和杨伯翰大学新开发的 TICCIT 

动风行于欧美各 系统 ®。 其特点是将几个独立的、由计算机控制其终端 

国，人们把这一的分散系统连结起来，目的是利用小型计算机和电视 
运动作为当时教 技术向公共学院学生提供英语、数学的 CAI 课程和教 

学改革的一个重 学程序。研究结果表明，该 CAI 教学效 杲优于 传统的 

要组成部分并寄 正规课堂教学。 

予极高的期望。 六十年代后期，由于行为主义理论本身的缺陷，大 

由于电子计算机 量粗制滥造的程序课本和教学机器涌入市场，致使程 
的速度快、容量 序教学受到种种批评。而对 CAI 作用的过分夸张宣传 
大、灵活以及具（特别是宣传它能代替教师的作用而遭致许多教师的 
有人机对话等功 抵制），机器价格的昂贵，适用软件又不多，也使 CAI 
能，可以弥补机 的声誉大降，一个时期内几乎销声匿迹。七十年代中、 
械装置的教学机 后期，由于计算机技术的飞速发展，机器价格的大幅度 
器的一些不足，下降，特别是微型计算机的开发投放市场，才使学校中 
自然就成为比较 利用计算机辅助教学的运动再度掀起高潮。 

理想的自动化教 计算机辅助教学的效果究竟如何？廿多年来众说 

学机器 ®。 早期 纷纭，莫衷一是，实醃研究的结论也一直存有争议。最 

的 CAI 实 际上， 初是充分肯定，例如前面新举的一些持肯定态度的研 
就是一种自动化 究。随后，随着对程序教学运动的种种非议，对 CAI 热 
程度较高的程序 情的下降，出现一些持否定结论的研究。例如,伯少尔 

教学。 德和撒克斯 Berthold and Sachs ， 19 7 4)在研究中发现教 

六十年代至 师的教学优于计算机辅助教学。研究对象是六名情绪 
七十年代初，在 障碍儿童，对他们进行乘法和拼写等方面的教学，采用 

美国研究 CAI 了三种不同形式的教学 :计算 机教学、教师教学和两者 

最负盛名的项目 混合教学。结果是教师的教学效果优于其它两种形 

有:（1)斯坦福大学的 P •萨佩斯和 R •阿特金森从1963 式@。19 78 年蔡和波尔 ( TsaiandPohli ) 也作了 CAI 与教 

年起开始的 CAI 的研究和开发工作。最初是对小学生 师教学的比较。他们把 45 名大学生分为三组 ( CAI 教 

和能力低下的学生用 CAI 作数学和语言学习的操练 学，教师讲授和两者混合），用四种不同的方式测验学 

和练习，后来又发展到利用 CAI 作个别指导。他们的 生计算机程序设计的成绩(小测验、家庭作业评等、学 

研究旨在搞清作为小学课程的组成部分、在一段校长 期设计等级和最后测验分数）。从家庭作业和学期设计 

的时期内使用个别化指导的 CAI 来讲授数学和阅读 等级的数据表明，各实验组之间无显著差异气八十年 

课是否适当。结果表明，在阅读教学方面，实验前学生 代以来，一些研究工作者对大量的 CAI 研究进行了元 

在接受了 10个月的正规课堂指导后，平均阅读能力才 分析 •后， 又趋于持积极的肯定态度。伯恩和鲍兹曼 

达到 5. 4个月的水平，而使用计算机教学后，学生仅接 （Burn and Bozeman , 1981) 通过对一至十二年级学生的 

受8个月的指导，其平均阅读能力达到9个月的水 数学成绩和 CAI 教学进行元分析得出结论是 :①用 

平®。 （2) 伊利诺埃大学开发的 PLATO 系统（为. CAI 补充的数学课在促进学生的成绩方面十分有效; 



元分析是一种新的统计方法，对同一课题的大量研究报告 ■ 作统计分析从而得出一种倾向性的结论一 ^^ 作 者注。 
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② CAI 的操练和练习对成绩高和能力差的学生在各级 
水平上都比较有效，而中等水平的学生的成绩没有显 
著的提高;③没有证据表明这些结果是由于实验的特 
征而产生的气还有人在运用元分析时发现，在 28 个 
CAI 的教学实验研究中有 23 个实验报告表明 CAI 与 
传统教学成绩存在显著差异，这 28 个研究中学生成绩 
CAI 平均高出 0. 47 个标准差。 

总之，国外廿多年的 CAI 研究中, CAI 与传统课堂 
教学相比，其效果仍难定论。结论还需进一步证实。 

我国有计划地开展计算机教育试验是从 1982 年 
开始的。由于受到“程序设计是第二文化”这一思想的 
影响，中学计算机教育的试验开始就是开设以程序设 
计语言为主的计算机选修课。直至 1986 年第三次全国 
中学计算机教育工作会议上才把计算机辅助教学提到 
工作日程上，在教委的工作报告中把“组织力量开发计 
算机教育软件，在有条件的地区和学校逐步开展计算 
机辅助教育……”作为安排中学计算机教育工作的三 
个层次之一。此后，在国家科委、国家计委、国家教委、 
电子工业部和中国科协五个部委的关怀和支持下，成 
立了五个部委的协调小组，组织计算机专家研制和开 
发适合于中国青少年计算机教育的国产化微型计算机 
一中华 学习机 ，并在七五计划中拨专款开发教学软 
件。建立了教育软件登录和评审机构。三年来， E 先后 
进行了三次全国性的教育软件评审会。由于我国教育 
软件的研制开发起步晚，基础薄弱，至今为止，合格的 
软件还不多，特别是可供教师用作辅助教学的软件更 
少;因此，在我国利用计算机辅助教学无论从理论上还 
是从实践上都有许多问题需要得到解决。诸如，在我国 
的教育制度和教学条件下，计算机辅助教学可能起什 
么作用？怎样才能起作用？ CAI 与教师的教学应该是一 
种什么关系？在应用 CAI 过程中如何促进学生的基本 
知识和基木技能的训练？ 

如同任何一种教学方式一样，计算机辅助教学这 
种教学方式的效果，除了充分发挥它自身固有的优势 
以外，还要受到教师的因素、学$的因素、教学 敢件的 
因素等影响。探讨这些因素，搞清影响 CAI 效果的条 
件，对宇指导计算机辅助教育的发展无疑是有益的，也 
是计算机教育研究工作义不容辞的责任。 

二.研究目的 

本研究拟探讨以下几个 问题： 

1. CAI 与传统教学方式效果比较。 

2. 学生学习能力不同是否影响 CAI 的效果。 

3. CAI 教学中学生的学习兴趣与态度。 

4. CAI 教学对学生认知能力的作用。 

三•方法与步骤 

1.被试 


本实验采用自然实验法。在课堂正规教学的基础 
上，利用微机进行辅助教学。被试选自北京161中学高 
中一年级 （1)(2) 两班，每班人数为40人，将每班随机 
分为实验组和控制组各20名，男女人数相等。在数学 
课上进行实验。 

补充实验在北京161中学选取初三一个班，44名 
学生作为被试。根据英语基础成绩用配对法，随机分为 
实验组和控制组，实验组在机房上机练习，控制组在教 
室中学习，练习作业相同。练习时间亦相同。 

2. 实验设备和教学软件。 

本实验所用微机是国产 Apple — I ，兼容机 BMC 
和 Korin 共20台、磁盘驱动器20台。 

教学所用的软件有国外引进的 三个： ①美国 
Sunburst 公司的“解释图象 ” （Interpreting Graphic ，已汉 
化）；②美国 Educational Pullishers 公苟的 “超级绘图” 
( Superplot ； ③美国 Sunburst 公司的“方程绘图 
(Graphing Eguation ) 。这三个软件中主要内容与我国数 
学课本中有关内容相配，并经国外专家推荐为优秀软 
件。此外，还根据教材需要由计算机教师移植和编制了 
“函数与图象”软件。 

在补充实验中采用了国内教师编写的英语介词练 
习，英语任课教师根据教学需要提供了练习内容。 

3. 实验教学内容 

实验涉及的内容为高中课本《代数》第一册（甲种 
本)中的第一章幂函数、指数函数和对数函数中的第三 
节幂函数和第四节指数函数和对数函数。此外还涉及 
全曰制十年课本中，初中函数中 的二次 函数。 

4•实验步骤分五个阶段 

第一阶 段:对 高一两班所有被试进行数学摸底测 
验，以此为基础，将各班一分为二，随机确定为实验组 
和控制组。此外，还对所有被试进行了认知推理能力测 
验和隐藏图形测验，以确保实验处理前两组被试水平 
基本相同。 

第二 阶段: 根据第一阶段进行的分组，对实验组进 
行实验处理，对控制组进行正常教学，时间从87年9 
月起大约持续两个月 左右。 

在整个实验期间，实验组和控制组基本上都同时 
在教室中听课。在讲到上述实验内容如幂函数单元时， 
实验组到机房上课，结合讲解用计算机进行演示。课后 
实验组上机对所学习的内容进行练习，而控制组按传 
统方式作书面材料的练习。练习时间都大体相等，内容 
大体一致。实验班每人累计上机练习10课时左右。 

第三 阶段: 在上一阶段教学处理后，对高一 ( 1 ) (2) 
两班全体进行后测，考察实验效果。同时，再一次对该 
两班进行隐藏图形和认知推理能力测验，以考验函数 
数学对认知能力的效果。 
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第四阶段，进行学习内容的保持和迁移测验，进一 
步检査学生学习的效果。此外还进行了有关 CAI 教学 
的问卷调査和个别谈话，以补充测验成绩以外的情况。 

第五阶段，补充实验，根据实验的结果，于 88 年 
3-4 月进行了 CAI 的补充实验。在初中三年级一个班 
作英语介词练习的实验，以进一步探索影响 CAI 效果 
的条件。 


四•实验结果及分析 

(一)各实验组和控制组数学知识初始状态 
表 1. 实验组和控制组数学摸底成绩的方差分析 


班级 

变异来源 

平方和 SS 

自由度 df 

均方 ms 

F 值 


组间变异 

41.86 

1 

4.86 


髙一⑴ 

组内变异 

1957.86, 

38 

51.52 

0.79 


总变异 

1999. 72 

39 




组间变异 

9 

1 

9 


髙一 (2) 

组内变异 

3731.97 

38 

98.21 

0. 09 

、 T 


总变异 

3740.97 

39 




Fo . 05 ( 1 * 38) = 4.10 


a 〉0. 05 

表 1 的分析表明，两班实验组与控制组的数学摸 
底成绩均无显著差异，可以说两班的实验组与控制组 
初始水平相同。 

(二)各实验组和控制组的认知推理能力，识别镶 
嵌图形能力的初始水平。经方差分析均表明差异不显 
著，即起点相同。（方差分析表从略） 


(三)实验处理对被试认知能力的影响。 

表 2. 两班推理能力和识别镶嵌图形能力的差异 


班级 

测验 


平均值 

标准差 

1 人数 

t 值 

P 值 

高一⑴ 

推理测验 

实验组 

控制组 

11.5 

11.55 

1.73 

3.24 

20 

20 

-0.6 

P>0. 05 

锁嵌图㈡ 
测验 

实验组 

控制组 

12. 16 

12. 1 

5. 27 

4. 69 

19 

20 

0.04 

P>0. 05 

高一⑵ 

推理测验 

实验组 

控制组 

12. 95 

12.76 

1.73 

3. 48 

20 

20 

0.22 

P>0. 05 

镶嵌图形 
测验 

实验组 

控制组 

6. 17 

4.95 

4.99 

4.21 

18 

20 

0.82 

P>0. 05 


表2表明两班的实验组在实验处理后对认知推理能力 
和识别镶嵌图形能力方面没有显著影响。实验组和控 
制组在这两个测验中的差异不显著。 


(四）实验处理对实验组数学学习的影响。 

表 3. 实验前后两班实验组与控制组数学成绩比较 


班级 

被试 """[ 

平均值 

标准鲞 

人数 

t 值 

P 值 

高一⑴ 

前 

测 

实验组 

控制组 

86.96 

89.7 

11.49 

13.46 

20 

20 

0. 95 

P >0. 05 

后 

测 

实验组 

控制组 

80. 85 

79.8 

9. 49 

11. 48 

20 

20 

0. 31 

1 

P >0. 05 

高一乂 2) 

前 

测 

实验组 

控制组 

81. 4 

81. 06 

16.06 

16.62 

20 

20 

0.69 

P >0. 05 

后 

测 

实验组 

控制组 

80. 35 

73. 56 

7. 26 

11.69 

18 

20 

2. 18* 

P <0. 05 

Po. 05 = 2. 02 


表 4. 两班实验组与控制组数学学习保持和迁移效果 
比较 


班级 

-1 

平均值 

标准差 

人数 

t 值 

P 值 

高一 1 《1): 

保 

持 

实验组 

控制组 

84.89 

86. 79 

8. 48 

6. 1 

19 

17 

-0. 78 

P >0. 05 

迁 

移 

实验组 

控制组 

87. 79 

86. 12 

9.26 

13. 19 

19 

17 

0.43 

P >0. 05 

高一⑵ 

保 

持 

实验组1 
控制组 

75.95 

73. 73 

8.5 

12. 33 

18 

20 

0. 66 

P >0. 05 

迁 

移 

实验组 

控制组 

80. 6 

77. 4 

8. 34 

15.53 

18 

20 

0. 81 

P >0. 05 


表3表明 CAI 对实验组学生学习数学成绩有所提高， 
其中高一 （1) 班实验组略有提高，但从 t 检验看，差异 
不显著。而高一 (2) 班则实验组平均成绩显著高于控制 
组 ， t 值为 2. 18， P <0.05。 

从表4可见，两班的实验班和控制班在学习的保 
持和迁移方面成绩差异不显著。但是从总体上看，特别 
是在高一 (2) 班，实验组的平均分数略高于控制组。 

(五)利用计算机辅助教学对学生学习兴趣和学习 

态度的影响。 * 

在实验处理后，我们用问卷的方式，向被试提出一 
些问题，以了解 CAI 对学生学习兴趣与数学学习态度 
的影响。其结果见图1，图2。 

图1是学生对五个里克特量表式的多重选择题所 
作的反应。这五个题是： 

1. 你是否喜欢用计算机来学习数学？ 

2. 如果有语文、物理等其它软件，你是否愿意用？ 

3. 计算机结合函数教学，图形对知识的表示是否 
形象？ 

' 4. 每当上机时，你的感受。 

5. 用计算机对理解、记忆函数性质是否有促进作 


用？ 

要求学生对每个问题在五个等级中选择一个。如 
①很喜欢(很愿意、很形象、很愉快、很有促进作 用）; ② 
喜欢(愿意、形象……: n ③无所谓(一般、无作用）;④不 
喜欢(不愿意“;⑤讨厌(很不愿意……）。 

在图1中我们把肯定性的①②等合在一起统计， 
而把选择无所谓或否定的③④⑤等放在一起统计。五 
个题中选華①②等的学生百分数大大高于选择③④⑤ 



喜欢愿意形象愉快促进学习 

图1两个实验组被试对用计算机辅助学习的兴趣 

H □肯定 无所谓或否定 


等的学生百分数。可见实验组学生在用过 CA 〗 之后， 
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% • 辅助教学与研 究 • 

1 中小学 CAI 软件设计的几点看法 



四川宜宾地区教学仅器站李志 咖：宜 宾四中最运洁 


一、 引言 

计算机辅助教学(简称 CAI ) 主要对象是学生，其 
核心部分是教学软件。高质量的教学软件可以使学生 
在丰富多采引人入胜的愉快气氛中主动地学到了知 
识。能调动学生学习的积极性，获得良好的教学效果。 
本文就中小学 CAI 软件设计中的一些问题作一探讨， 
旨在抛砖引玉 # 

二、 软件设计人员 

当前，在广大从事 CAI 软件开发工作者的努力 
下，我国中小学 （ AI 软件在数量和质量上都有较大提 
高 J 旦由于这些软件的设计者大多数是电脑技术人员， 
缺乏对中小学教材、大纲以及中小学生实际的了解，设 
计的一些软件教育目标不够明确，往往显得呆板，没有 
充分发挥计算机作为新型教育手段的优势。因此，对学 
生吸引力不大。我们认为一个高质量的 CAI 软件是集 
教育学、心理学专家以及中小学教师、计算机专业人员 
之精华于一体的产物。 

为了提高中小学 CAI 软件的质量，设计人员需具 
备以下知识 结构： 

1 )，计算机专业人员的有关知识及实践能力。 

2) ，丰富的中小学教学经验。 

3) ，熟悉中小学教材及大纲。 

4) ，具备教育学、心理学及教学法等有关知识。 

因此，笔者建议在有条件的地方，组织有丰富教学 

经验的中小学教师、科技辅导员、软件人员、教育心理 
学家等参加的开发队伍,发挥各自所长，以期得到一批 
高质量的 CAI 软件。 

三、教学需求分析 


设计 CAI 软件，必须进行教学需求分析，明确教学对 
象与教学要求，尤其是对教学要求必须加以分析和细 
化，使得总的教学目标进一步划分为若干个子目标，同 
时论证这些子目标存在的必要性和合理性，并画出学 
习目标分析图。 

以开发 “BASIC 语言”的软件为例。假设总的教学 
要求是使学生能够用 BASIC 语言编制程序，选择对话 
型的 CAI 模式，则可画出学习目标分析图 （图 一) 。从 
图中可以看出，最终目标是通过一个个子目标达到的， 
而每一个子目标的实现,需要学生掌握一系列的概念 
和技巧，因此，还需要把子目标再进一步细化,即画出 
子目标中所含的各种概念及其相互关系图，即所谓的 
概念图（有的 CAI 可省略这一步）。例如，子目标 
“BASIC 的语法基础”中所含的概念及其关系如图二。 



图一学习目标分析图 


对于利用计算机来辅助学习持非常积极的态度。 

问卷中另外一部分内容涉及到学生对数学学习的 
态度问题，如问到是否“喜欢做难题”，是否“愿意阅读 
一些课外的数学书”，是否“预习下一天的数学课”、“做 
课外题”、“学习数学的理由”……等问题。在实验处理 
后，实验组与控制学生的回答无显著差异（图表从略）， 
说明 CAI 的使用对孥生数学学习态度无显著影响。 
(六)补充实验——英语介词练习的结果分析。 

表 5. 实验组与控制组英语成绩比较 



被试 

平均值 

标准差 

人数 

t 值 

P 值 

前 

测 

实验组 

控制组 

83.82 

83. 2 

10.93 

11.7 

22 

22 

0. 18 

P>0. 05 

后 

实验组 

78.3 

15. 54 

22 

1. 66 

P>0. 05 

测 

控制组 

71. 82 

14.31 

22 

P. 05= 1. 68 


表5中 P 值虽然大于 0. 05,也即在 0. 05的水平 
上无显著差异，然而 t 值 1. 66是接近 P 0. 05=1. 6.8 的 
水平，从平均值看，实验组高于控制组 6. 48分,应该说 
CAI 对初三学生学习英语介词的成绩是比用传统教学 
的控制组要好。可以说在 P =0. 06的水平上，差异显 
著。 ( ti (0. 06) = 1. 65, P <0. 06) (未完待续） 
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图二概念图 

四、 体现计算机的特点，充分调动学生的 
积极性 

一个高质量的 CAI 软件不是课本内容的叙述，要 
体现计算机的特点，有利于激发学生学习的兴趣和主 
动性、积极性，有利于培养学生的能力，能取得其它教 
学手段无法取得的效果。因此，要充分利用计算机的绘 
图功能及音乐功能，通过巧妙结合，达到有声有色的动 
画效果。如我们在设计初中化学离子化合物的形成这 
一 CAI 软件时，不只是叙述方 程式： 

Na + CI-^NaCI 

而是通过计算机高分辨作图，描绘出钠原子失电 
子(用 X 表示，红颜色绘出），氯原子得到电子(其核外 
电子用 • 表示，绿颜色绘出）的动态过程，同时伴有音 
乐提示。这样使学生在愉快的气氛中学到了知识。体 
现了计算机作为智能工具的特点。 

CAI 软件切忌呆板或“黑板搬家”，否则，失去计算 
机辅助教学的意义。我们曾购过一批物理辅助教学软 
件，大多是单一的叙述物理定理和公式，同学们看后批 
评说: “只把计算机屏幕当作一块可以自动换内容的小 
黑板，形式单一,没有多大变化，除了可以加快速度外， 
别无它用……” 

五、 符合中小学生的心理特点 

由于我们设计的 CAI 软件应用对象是中小学生， 
所以在形式上以丰富多采、灵活多变吸引学生。因为中 
小学生年幼、爱动，注意力不持久，受兴趣的支配性大。 
在设计软件时应符合青少年学生的心理特点。因此， 
CA 1 软件应具备以下几个 特点： 

1) 形式多样 :如果 始终重复同样的图形、动作及要 
求，就会使学生感到腻味。因此，要注意有强弱刺激的 
起伏，使得在一次强刺激下产生的兴趣和注意力开始 
转移之前，又及时给予一个新的强刺激，引导他进入另 
一个高潮。 

2) 形象生动 :要利 用计算机的绘图和音乐功能，设 
计出声图并茂，熔教学、娱乐为一体的软件，达到有声 


有色的动画效果。 

3) 连续性强，逐步深入 :软件 中所给出的教学内容 
及思维过程不能跳跃太大，并注意及时反馈、由浅入 
深，让学生自然地发现规律性。不要突然提出结果，也 
不要提出不切实际的要求，让学生感到束手无策。 

4) 可靠 性:具 有容错能力。 

5) 使用方 便:教 师调整灵活，学生控制灵活，屏幕 
提示简单明了。 

6) 程序技巧 :应对 算法进行优化，使程序有较高的 
效率。 

7) 商品化程 度:应 有较详细的功能说明、使用说明 
及必要的维护说明. 

高分辨率图形的任意比例压缩 

f \ 

河北任丘华油三中高二 何东强 

在《学生计算机世界》总第八十三期上有一则求色 
码程序。经过实践，发现这则程序还可以用来压缩图 
形。程序的原理很简单，就是先将高分辨率第二页上对 
应点的颜色码求出，然后把该点的横纵坐标 X , Y 除以 
各自的比例数后，再画在高分辨率第一页上。 

程序用 BASIC 语言编程，运行时，先要求输入压 
缩后的起始坐标 ( X 2 ， Y 2 ) ，接着输入横纵坐标的压缩比 
例 ( X ， Y )。 X ， Y 的值越大，运行速度越快。如果能把 
BASIC 程序编译成机器语言，运行速度会提高近九倍。 

程序1使用机器语言程序 2 ,由于省去了计算，机 
器语言也相应变短，所以运行速度快。 

程序1 

9 ONERR GOTO 100 

10 INPUT W START (X2 , Y2 ) w ； X2 , Y2 : IF X2<0 OR Y2<2 
THEN 10 

20 INPUT“X ， Y= X ， Y: IF X< 1 OR Y<1 THEN 20 
30 HGR 

40 X1=X ： Y1=Y 

50 FOR Y=0 TO 191 STEP Y1 : FOR X = 0 TO 279 STEP XI 

60 POKE 230,64 ： &.X,Y 

70 POKE 230,32 ： HCOLOR= 3* PEEK (0) 

80 HPLOT X2 +X /Xi,Y2+Y/ Y1 
90 NEXT : PRINT Y：NEXT 
100 END 
程序 2 
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• 辅助教学与研 究 • 


中华学习机语音合成板的研制与应用 


四川大学计算中心周凉’计算机系苟大举贺德狂 

• / 


摘要： 本文介绍了语 f ■合成处理器 TMS 5220 原理和由它组成的中华学 
习机语音合成板以及在中小学语音辅助教学中的应用。 


— 、引言 

目前，语音合成技术已取得很大进展，已有若干 
种方法能够以很低的比特率合成高质量的语音，各种 
LSI 语音合成蕊片 ( VSP ) 相继出现，语音合成技术在许 


TMS 5220 有一个内部状态寄存器为 GPU 提供 
VSP 的状态信息。状态寄存器有三个标 志位: 说话状 
态标志位 Ts , FIFO 半空状态标志位 BL (即 FIFO 内的 
数据是否少于或等于8字节， CPU 根据这一状态位， 


多方面已经应用。本文介绍中华学习机利用 TMS 5220 
语音合成处理器构成的中华学习机语音合成输出板1 
的原理，配上适当的词汇，介绍了它在语音教学方面 
的应用。 

二、 TMS 5220 语音合成处理器简介 


确定是否可以马上发送下一个字节语音数据)和全空 
状态位 BE , CPU 可根据需要访问这些标志位以决定 
程序的进程。 . 

三、硬件原理 

图2为中华学习机语音合成板硬件 原理绰 路图。 


RS —— 
WS —— 
INT <- 

TMS 5220 语音 REAADY - 
合成处理器的工作 


TMS 5220 是美国德克萨斯仪器公司近年来推出 
的产品，图1是内部 
结构框图。 


CPU 

I/O 

控制 


I 定时器 f 


图中 TMS 5220 的数据总线 DO 〜 D 7 与6522多用途接 


ROMCLK 



口适配器 （ VTA ) 的 
PA 口连接（注 意: 
TMS 5220 的 D 。 〜 D 7 
与6522的 PA 。 〜 


过程可简述如 下:在 
复位或完成一段语 
音合成后，与之相连 
的计算机第一次送 
到接口线上的有效 
数据，语音合成处理 
器的内部控制逻辑 
自动地将此数据送 
往命令寄存器，然后 
再进行命令解码，若 
是外部说话命令，那 
么紧接着出现在接口线上的数据流便依次被送往先 
入先出寄存器 ( FIFO )， 同时内部状态寄存器的内容也 
发生了相应的变化。合成单元在内部控制逻辑的控制 
下，按一定规律取出 FIFO 中的数据，并进行,语音合 
成，合成结果得到语音的重建信号数据，这些数据经 
D / A 转换器转换后得到供外部放大器用的模拟语音 
波形输出，以上合成过程一直延续到 FIFO 全空或者 
遇到仃止代码(即语音能量为二进制数 1111 B )。 本系 
统采用外部说话命令，接着送的数据必须是内存已知 
语音词汇表中待发音的语音数据。外部说话命令字为 
十六进制$60。 


PA 7 的连接是反序相 
连的，即两蕊片低位 
和高位交叉连接（见 
图2)，这是语音编码 
数据所需要的）。读 
出线西，写入线 
ws ^ fq 准备就绪线 
READY 分别与6522 
的 PB 2、 PB 1、 PB 0 柑 
连。由于驱动能力的 
需要，因此在 PA 口 
和 PB 口分别接上 10 K 上拉电阻， TMS 5220 的数模转 
换器输岀与地之间接入 1. 8 K 电阻，是作为电流对电 
压的转换用的，输出信号经隔直电容加到 LF 353 组成 
的低通有源滤波器输入端，最后经 LM 386 音频放大器 
放大后直接推动小型扬声器。选取6522目的在于 
TMS 5220 为一慢速外部器件，因此6522作隔离用以 
配合时序要求，同时6522的定时器可作语音报时用。 
74 LS 08 用于 APPLE n 与6522时钟相位配合。 

四、软件设计 

这里主要介绍讲一个单词的程序（见图3)，考虑 
到 TMS 5220 语音合成处理器是一种慢速的蕊片，并 


4 



' 1,2,4,8 

M 0 

Ml 


SPK 

OUT 

I/O 


图1 TMS 5220 语音合成处理器内部结构框图 
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且有比较严格的时序要求。中华学习机通过6522与 
TMS 5220 之间采用査询联络方式创造了必要条件。这 
里系统的査询主要包括两个 方面: TMS 5220 READY 线 
的电平和 TMS 5220 的内部状态寄存器。每写一个语 
音数据均要査询这两个状态。 TMS 5220 的 WSfq @由 
中华学习机通过6522的 PB 1 和 PB 2 用软件产生，以 
满足慢速要求。写一个语音数据（见图 4) 和读 
TMS 5220 的状态(见图 5) 分别为一个子程序。图6是 
TMS 5220 读写时序。 

五、应用 

有了上面发一个单词语音的子程序和语音合成 
板，再配上各种语音数据就可将中华学习机或 APPLE 
n 机用于语音提示方面的应用，如 APPLE I 语音报时 
系统、语音辅助教学系统等等。这里简单介绍一下用 
于语音辅助教学方面的应 用：用 中华学习机一边显示 
九九表，并同时读出声音。需要的语音词汇表包含数 
字0〜10及“得”的单字语音数据，每个字的语音数据 
存于中华学习机内存中，同时建立一个数据起始地址 


的地址表,该地址以数字“0”的起始地址开头，按数字 
大小顺序排列，最后为单字“得”的起始地址。根据起 
始地址表就可找到要讲某个单词数据的起始地址，根 
据要发音的等式(如显示为7 X 8 = 56,则读为七八五 
十六，如果显示为1 X 7 = 7,则读为一七得七)反复调 
用发一个单字的子程序就可读出等式来。现已成功地 
编制了九九表显示发音程序，类似此思想可增加一些 
单词用于小学算术自动语音教学系统，即可用中华学 
习机训练小学生学数学，提高教学质量，很有实际意 
义。 

注:本 文语音数据取自四川大学模式识别室语音 
库。 

参考文献 

1. TMS 5220 Voice Synthesis Processor Data Manual 

2. 《6502微处理机及其应用》荣树熙、张开敬编， 
北师范大学出版社，1984。 

3- 《苹果 I BASIC 程序设计》张士英编，北京师范 
大学出版社，1985。 
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麦克斯韦速率 


BESPSP^I 




i : 




内蒙古工学脘物理教研室 王克 ii 





在普通物理教学中，分子运动的统计破律是一个 
教学难点。根据教学需要编制验证麦克斯韦速率分布 
的蔡特曼一葛正权实验 [1] 的模拟演示实验程序，用来 
辅助教学，效果良好。 

为节省内存并使实验可连续进行，在磁盘上建立 
二个图形文件 （ GAS 1、 GAS 2) 和一个文本文件 
( GASTEXT )。 GAS 】 是实验装置(图一）， GAS 2 是麦克 
斯韦速率分布曲线。作出这二个图形的程序很简单，不 
再列出。 



图二 

文本文件 GASTEXT 是为绘出检测装置动态旋转 
而存储的数据，由程序二建立。 

本演示程序运行时，首先从磁盘调出文本文件，调 
岀图形文件 GAS 1 显示实验装置，按任一键，银原子在 
小炉中蒸发形成分子束从小孔射出（图二），这时装置 
作顺时针转动，当装置的狭缝转到分子束入射方向时， 
分子束便穿过狭缝射到弯曲玻璃屏上。装置继续旋转, 
狭缝偏离分子束入射方向，分子束被遮断，至此，模拟 
完实验全过程。由子程序作出屏上分子按速率大小的 
分布，该分布由麦克斯韦速率分布函数 /(〃） = Av ^ 2 
决定。点由右向左随机作出，表现分子打在屏上的动态 


过程。点密度便表现出分子束的“速度谱”。然后，调出 
图形文件 GAS 2, 显示出该分布的对应曲线。这样，便 
由定性到定量，完成对麦克斯韦速率分布的数学演示。 
分别敲入“1”，“2”两键，可轮换显示动态过程图和分布 
曲线图，便于两相对照，敲入“0”，结束演示。 

附: 程序一 

100 DIM X(8 ， 101) ， Y(8 ， 101) 

110 D$= CHR$ ⑷ 

132 VTAB 10 ： HTAB 15 ： PRINT “Please wait. ” 

138 PRINT D $ ； “OPEN GASTEXT” 

140 PRINT D $ ；“READ GASTEXT” 

142 FOR 1 = 1 TO 80 ： FOR J=1 TO 101 
144 INPUT X(I,J),Y(I,J) 

146 NEXT ： NEXT 

150 HGR2：HCOLOR = 3 

160 FOR A=1 TO 279：HPLOT A，1 TO A ， 159:NEXT 
170 HCOLOR = 0：FOR A = 2 TO 278：HPLOT A，2 TO A ， 

158 ： NEXT : HCOLOR = 3 
PRINT D$ ;"BRUN GAS1 〃 

HPLOT 20,70 TO 22,70 TO 22,55 TO 0,55 TO 0,89 
TO 22,89 TO 22,74 TO 20,74：HPLOT 30,55 TO 30, 
71 : HPLOT 30,73 TO 30,89 ： HPLOT 40,55 TO 40, 
71：HPLOT 40,73 TO 40,89 

DEF FN A(I) = 180 + R * COS(3. 14 * 1/180) ：DEF 
FN B(I) = 72+R * SIN(3. 1“ 1/180) 

225 INPUT A $ 

226 PRINT 

230 FOR 1 = 1 TO 200：HPLOT INT (RND(I) * 22)，INT 
(RND(I) * 34 + 55) ：NEXT 

240 FOR X = 20 TO 30 ： FOR 1= 1 TO 4 : HPLOT X，INT 

(RND(I) * 9 + 69) ： NEXT：NEXT 
250 FOR X = 30 TO 40 ： FOR 1=1 TO 2 ： HPLOT X，INT 

(RND(I) * 4 + 71) ： NEXT：NEXT 
260 XS=40 ： XT=140：GOSUB 660 
320 FOR 1=1 TO 101 

330 IF 1 = 50 THEN XS= 140 ： XT=208：GOSUB 660 

340 IF 1=60 THEN XS =140 ： XT=208：GOSUB 720 
350 HCOLOR = 0：HPLOT X(1 ， I) ,Y(1 ， I) TO X(2 ， I)，Y 
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(2 ， I):HPLOTX(7 ， I) ， Y(7 ， I) TO X(8 ， I) ， Y(8,I) 
360 HCOLOR = 3：HPLOT X(3 ， I) ， Y(3 ， I) TO X(4,I)，Y 

(4 ， I):HPLOTX(5 ， I) ， Y(5 ， I) 

370 Z==PEEK(-16336) 

380 NEXT 

390 GOSUB 790 

395 GET A $ : CLEAR：PRINT 

400 D$ =CHR$ (4)：PRINT D$ ;"BRUN GAS2，' 

405 POKE- 16301,0 

407 VTAB 22 

410 INPUTSHGR OR HGR2 OR END(l/2/0 )〃 ； Q$ 

420 IF Q$ ="0 〃 THEN TEXT：END 

430 IF Q$ ="2〃THEN POKE-16302,0 ： POKE-16299,0 ： 
GOTO 410 

440 IF Q$ ="1"THEN POKE-16301,0 ： POKE-16300,0 ： 
GOTO 410 
450 GOTO 410 

660 HCOLOR = 3 

670 FOR X=XS TO XT 

680 FOR K = 1 TO 2 

690 Y 二 70+“RND(K) 

700 HPLOT X ， Y:NEXT：NEXT 

710 RETURN 

720 HCOLOR = 3：R = 40 

730 FOR K= 180 TO 190 

740 HPLOT FN A(K) ,FN B(K) : NEXT 

750 HCOLOR = 0 

760 FOR K= 140 TO 207 

770 PHLOT K,68 TO K,75：NEXT 

780 RETURN 

790 HGR2：HCOLOR = 3 

800 HPLOT 1,20 TO 1,140 TO 260,140 TO 260,20 TO 1, 

20 

810 FOR X = 260 TO 1 STEP -1 

820 X1 = (X/80K 2/EXP((X/80K 2)*100 

830 FOR 1=1 TO XI 

840 Y = 20+120*RND(I) 

850 Z=PEEK(-16336) 

860 HPLOT X ， Y:NEXT：NEXT 

870 RETURN 

程序二 

10 DIM X(8 ， 101),Y(8,101) 

• ^ 

15 D$=CHR$ (4) 

20 DEF FN A(I) = 180 + R * COS(3. 1“ 1/180) ：DEF 
FNB(I) = 72+R * SIN(3. 14 * 1/180) 

30 FOR 1=1 TO 101 


40 R = 50 . 

50 X(1,I)= FN A(130 屮 I):Y(1,I)=FN B(130+I) 

60 X(2,I)=FN A(131-fI) ： Y(l,I) = FN B(131+I) 

70 X(3,I)=FN A(120+I):Y(3,I) = FN B(120+I) 

80 X(4,I)=FN A(121 + I) ： Y(4,I)=FN B(121+I) 

85 R=30 

90 X(5,I) = FN A(310+I):Y(5,I) = FN B(310+I) 

100 X(6,I) = FN A(311 + I):Y(6,I)=FN B(311+I) 

110 X(7,I) = FN A(250+I) ： Y(7,I)=FN B(250+I) 

120 X(8 ， I)=FN A(251 + I) ： Y(8,I) = FN B(251 + I) 

130 NEXT 

140 PRINT D$ OPEN GASTEXT" 

150 PRINT D $ ;" WRITE GASTEXT^ 

160 FOR 1=1 TO 8：FOR J=1 TO 101 

170 PRINT X(I ， J);%" ; Y(1 ， J):NEXT : NEXT 

180 PRINT D$ ； f, CLOSE GASTEXT" 

参考文献 

(1) 程守洙江之永编普通物理学 （198 2 修订本） 

高等教育出版社 P 259 

• 邮购信息 • 

SUPER/8051 
苹杲机通用文又汇编 

SUPER /8051 是为拥有苹果机的用户，方便地使 
用 MCS -51 单片机而研制的通用交叉汇编，采用 
SUPER /8051 将在苹果机上实现 MCS — 51单片机助记 
符语言的交叉汇编，从而免去手工汇编的麻烦。本交叉 
汇编的操作命令丰富，输入方便，编辑状态具有强大的 
查错和纠错功能，汇编速度快，容量大，伪指令丰富。是 
苹果机上国内最先进# MCS -51 单片机交叉汇编。 

SUPER /8051 交叉汇编可打印输出，以及与 DSG 
一 51 — II ，5,5 A ， DVCC —51- II ， III ， CH ， D ， HDW — 1 箸 
开发机通讯。 SUPER /8051 的研制者将积极与您合作 
开发与其它机种的通讯软件。 

SUPER /8051 交叉汇编为一片软盘，价格为 ISO 
元。各种通讯软件均为50元，可由用户指定何种通讯 
软件，一起装入同一软盘。各种通讯电缆均为60元。由 
于电缆结构简单，可自制，无偿提供图纸。 

该软件由哈尔滨傅增明同志研制，需要者请与《中 
华学习机》杂志社联系。 
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排序速度的快慢，有时直接影响着一个程序的质 
量，因此，如何加快排序速度是提高程序质量的一个关 
键。目前已有不少用机器语言实现数组高速排序的例 
子，本刊89年第6期刊载的 《 APPLE 汇编语言高速排 
序》就是一例，但遗憾的是这些程序都只能用于一维实 
型数组的高速排序，对二维数组却无能为力，而很多的 


第50 句: 按总分排序。 

第60 句:输 出排序后的二维数组元素。 

其中7,15,17,50这几句是用户排序时必须加入 
的语句，不能缺少。 

所附执行结果显示了 9个学生考5门功课按总分 
排序的情况，其中第1列为学号，第2列至第6列为5 


统计工作中却常常需要对二维实型数组排序(如学生 
成绩排名次），针对这一缺陷笔者深入分析了多维数组 
在机内的存贮方式，编制了如下机器语言程序，排序 
时，只需用一条命令&实型数组名 （ a ,0) 就可实现对 
二维数组的高速排序 ( a = l 或0)，本程序的特点是排 
序速度快，调用方便，经验证，对 A (60,7) 数组排序仅 
需3秒。 

使用本程序对二维实型数组按某一关键元素高速 
排序时，对关键元素的存放位置有一定要求，现以学生 
成绩排名次为例(参看所附的 BASIC 程序)说明 如下： 
假定有 N 名学生，考 M — 1门课，则可定义一个二维数 
组 A ( N ， M ), 其中人(1^，1)存考生学号，人(1^，2)，八0^， 
3) …… A ( N ， M ) 存考生各门单科成绩，如果按总分排 
名次，则必须将总分存在 A ( N ， o ), 这是排序的关键元 
素。这样，按总分排序时，只需用 & A (1，0) 即可。如果 
按某一单科成绩排序，则必须将该单科成绩存在 A 
0^,0),排序仍用&^(1，0)。所以，用户使用时一定要 
注意将待排序的关键元素存在 A ( N ，0) 这样的位置 
上。 

本程 if 是按降序排序，若按升序排序，则需修改 
$ 9580单免的值为$ 01，同时将 BASIC 程序中的调用 
命令改为&实型数组名（0,0)。另外在调用前，必须给 
指定单位元予置值。本文所附 BASIC 程序说明了正确 
的调用方法。 BASIC 程序各句意义说明 如下： 

第7句 :设定 &语句转向执行的地址。 

第15 句: 将数组第一维上限值+ 1存入指定的两 
个单元 $1 A 和 $1 B 。 

第17句 ：将数 组第二维上限存入指定单元 
$ 95 AB ， 并将第一维上限值+ 1乘5的 
值存入指定的四个单元$ 95 B 8, 
$95 B 2, $95 C 5, $95 BF 。 

第20〜40 句: 产生并输出原始的二维数组元素。 


门功课的单科成绩，第7列为总分。 

本程序稍作改动还可实现三维、四维甚至多维数 
组按某一关键元素高速排序。 
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18 
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AE 
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94 

95 

AD 

95 

95 

8D 

96 

95 

9538- 

20 

69 

95 

E8 

DO 

03 

EE 

96 
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95 

E4 

1A 

DO 

F3 

AD 

96 

95 
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C5 

IB 

DO 

EC 
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94 
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94 

95 

DO 

03 

EE 
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95 

95 
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94 

95 
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1A 

DO 
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95 

95 

C5 
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AF 
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69 

05 

85 

FC 
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90 
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A5 
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A4 

FD 
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86 

IE 

20 

B2 

EB 

A6 

IE 

C9 
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FF 

F0 

14 

60 

A0 

04 

B1 

06 
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48 

B1 

08 

91 

06 

68 

91 

08 
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88 

10 

F3 

60 
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00 

00 

A5 
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06 

A5 
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85 

07 

A5 
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85 
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A5 

FD 

85 

09 

20 

95A8- 

84 

95 
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06 

85 

IF 

18 

A5 

95B0- 

06 

69 

32 

85 

06 

A5 

07 

69 

95B8- 

00 

85 

07 

18 

A5 

08 

69 

32 

95C0- 

85 

08 

A5 

09 

69 

00 

85 

09 
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20 

84 

95 
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IF 

DO 

DF 

A5 
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FB 
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F9 

EA 
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6 HIMEM ： 38143 

7 POKE 1014,0 ：POKE 1015,149 
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10 


裊 


INPUT "N ， M=" ； N,M：DIM A(N,M) 

15 ' POKE 27,INT((N +1)/256) ：POKE 26 ， N+1- 

PEEK (27) * 256 

17 POKE 38315,M：POKE 38328,INT ((N+l) * 

5/256) : POKE 38322, (N+l) * 5-PEEK 
(38328) * 256 ： POKE 38341, PEEK (38328 )： 
POKE 38335,PEEK(38322) 

20 FOR 1=1 TO N ： A(I,0) = 0 ： A(1,1)=1：PRINT 
I； ww ；：FOR J = 2TOM 

30 A(I ， J) = (INT(RND(1) * 60)+ 40) :PRINT A 
(I ， J );〃 A(I,0)=A(I,0)+A(I ， J) 

40 NEXT：PRINT A(I ， 0) :NEXT：PRINT 

50 CALL-198:&A( 1 ， 0) :CALL-198 

60 FOR 1=1 TON:PRINT A(I ， 1) ; " 〃 ；： FOR J= 
2 TO M : PRINT A(I ， J) ; " : NEXT：PRINT 

A(I,0) ： NEXT：END 

RUN 

N ， M=9,6 

1 62 52 91 88 64 357 

2 96 77 95 60 90 418 

3 96 58 45 89 43 331 

4 93 97 93 98 67 448 

5 50 85 56 62 99 352 

6 55 59 80 83 45 322 

7 52 87 89 94 51 373 

8 91 63 75 97 44 370 

9 94 96 78 51 59 378 

4 93 97 93 98 67 448 

2 96 77 95 60 90 418 

, 、 • * - 

9 94 96 78 51 59 378 

7 52 87 89 94 51 373 

8 91 63 75 97 44 370 


1 62 52 91 88 64 357 

5 50 85 56 62 99 352 

3 96 58 45 89 43 331 

6 55 59 80 83 45 322 

• 邮购信息 • 

向用户出售微机逻辑原理图纸 

为了微机用户使用与维修上的方便，本杂志社销 
售 APPLE n 微机、中华学习机和 PC 机主机图纸。欲购 
者可从邮局寄款至山东潍坊东风大街 60 号《中华学习 
机》杂志社或从银行汇款至潍坊工商行东关办事处，帐 
号 00896315—814 


价目表 


序 

号 

图纸名称 

单价 ( 元） 

图纸规格 

1 

APPLE H FX-100 

7. 00 

0# 

2 

APPLE I STARGX— 15 

7. 00 

0# 

3 

APPLE H CP-80 

8. 00 

0# 

4 

APPLE fl LQ—1000 

7. 00 

0# 

5 

AAPPLE I 主机 

6. 00 

1# 

6 

APLLE JI 16KRAM 卡 

6. 00 

1# 

7 

APPLE I 驱动器卡 

6. 00 

1# 

8 

AAPPLE I FD—55A 型 

6.00 

1# 

9 

APPLE fl F—051 型 

6. 00 

1# 

10 

APPLE II F—051MD 型 

6. 00 

1# 

11 

APPLE n MTL—101 型 

6. 00 

1# 

12 

APPLE fl Z — 80 卡 

5. 00 

3# 

13 

APPLE II 打印机卡 

5. 00 

3# 

14 

APPLE Jl 电源 

4. 00 

3# 

15 

中华学习机图纸 

8. 00 


16 

PC 机主机图纸 

10. 00 


注 : 每份 图纸另外加收 10 %的包装费和邮费 


••參 •• ••參 ••••••• ••參 •• ••鲁 •• ••春 •• ••參 •• ••參 •• ••參 •• ••參 •• ••春 •• ••參••••擊**••參 •• ••參 •• ••參 •• ••攀 •• ••鲁 •• ••鲁 •• ••參 •• ••參 

欢改邮购86、87、88、89 年 苹杲国合订本 


为方便读者，我社将 86 年、 87 年、 8S 年、 89 年的苹果园杂志兮巧加工成合订本，每本定价 
40 元，欲购者可从邮局或银行来款。联系地 址:山 东省潍坊市东街 60 号，银行 :潍坊 市工商 
行东关办事处，帐号 :00896315—814 。 数量不多，欲购者从速。 
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中华学习机杂志社 






MIT LOGO 本来是磁盘高级语言， CEC — I 机已固 打入 ctrl-C 处理编辑器，使从磁带装入的文本进入工 

化在 ROM 中，以磁盘为外存。能否以作空间。取带结束。 

S 附录二： 


4 


磁带为外存呢?笔者通过分析，了解到 ii 
LOGO 的编辑区首址为$2000,尾址 
则由零页单元$ 9 C 和$ 9 D 构成的编 f 
辑区指针指示。因此，只要将编辑区内# 

容和编辑区指针用磁带保存起来，即 f 
达到了以磁带为外存的目的。据此，设$ 

计了两套磁带存贮方法 :第一 套是原 f 
始方法，只涉及到监控级的命令(过程 
见附录一)。第二套是通过四个 LOGO 
过程（见附录二）自动实现磁带存贮 
(见附录三)。经过试用，效果很好。 

附 录一: LOGO 磁带存贮(一） 

① 存入磁带 

步骤1°? E D I T / 将工作空间装 S 

入编辑区这里以附录二所示编辑区文 
本为例。 

步骤2° 

打入 ctrl - G 直接退出编辑器(可以对 
文本做适当修政或删节后再退出）。 

步骤3° 

?.BPT〆 进入监控状态 

*9 C .9 D〆 査询编辑区指针 

如显示 ：009 C —80 21则表示编辑区 
尾址是$ 2180( 这里以附录二的文本 
为例） 

准备好录音，然后打入 * 2000. 

2180 W〆 将编辑区内容存入磁带，并名 
在带盒上记下$ 2180 
步骤4° 

* ctrl — y 〆 返回 LOGO 状态， 存带芒 
结束。 

(磁带上这四个过程的文本名为 • 

S . L . RCD 文件） 

② 从磁带上取出过程 
步骤 r 

?. B P T / 进入监控状态 

步骤2° 

带盒上记着编辑区尾址$ 2180,因此打入 * 9 C : 
80 21 〆 恢复编辑区指针 

准备好放音 

* 2000. 2180 R〆 恢复编辑区内容 * ctrl - y〆 ， 返回 
LOGO 状态 

步骤3° 

? E DIT 〆 将显示如附录二所示文本 



♦♦TO .SAVE 

jjsAVE . RCD 156 0 157 0( 存指针） 
{{ SAVE . RCD 0 32 . EXAMINE 156 
{♦EXAMINE 1 57 ( 存编辑区） 

♦♦END 


\\ 


TO SAVE . RCD : BL : BH : EL : EH 
^.DEPOSIT 60 * BL . DEPOSIT 61 * BH 
DEPOSIT 62 * EL . DEPOSIT 63 : EH 
♦♦.CALL 53533 60 (53533 为监控存带程序 

H 入口） 

{{END 

♦♦ TO . LOAD 

♦♦ LOAD . RCD 156 0 157 0( 取指针） 

♦♦ LOAD . RCD 0 32. EXAMINE 156. 

{♦♦EXAMINE 157( 恢复编辑区） 


♦♦TO LOAD . RCD : BL : BH : EL : EH 
H . DEPOSIT 60 ： BL . DEPOSIT 61 ： BH 
jj . DEPOSIT 62 * EL . DEPOSIT 63 : EH 
{{ CALL 53590 60(53590 为监控取带程序 
贫入口） 

♦♦END 

jj 附 录三: LOGO 磁带存贮(二） 

贫步骤 1—1° (先执行？ ER all 〆 ） 

H ? tc v 进入编辑器〜 

^按附录二中的文本输入，然后打入 ctrl-C 
g 处理编辑器，工作空间中定义出四个新过 
' «程。 

_ S 步骤 i — 2 。 （此步骤只需在第一次存带 
M H 或复制此四个过程时执行） 
g 按附录一的方法存磁带备用。 

P 步骤2 — 3° (刚开机或以上四个过程需 
H 恢复时执行)按附录一的方法从磁带中恢 
發复这四个过程。 

益步骤 3-1° (当以上四个过程在工作空 
①存带 方法： 

? EDIT〆 将工作空间装入编辑器， 

然后删掉不必要的内容，打 Ctrl-G 退出。 

准备好录音 
?. SAVE〆 

光标消失，十几秒后产生“嘟”的一声，存入编辑区指 
针，过一会儿又响第二声。且光标重现，存带结束。 
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• 实用程 序 • 

低分辨率全屏幕绘图 

黄文贵 

已有不少文章介绍过中华学习机高分辨率全屏幕 
绘图的方法。笔者认为用键盘在低分辨率下进行全屏 
幕绘图也是行之有效的。 

程序运行后，首先进入中文说明。按任意键进入画 
图状态，画图结束后按 《 ESC 》 键又转入中文状态，根据 
中文提示，用户自行选择重画、存盘、打印、结束。 

存盘和打印的程序省略，请读者参阅88年第6期 
《苹果园》《 APPLE 机低分辨图形的打印方法》，进行存 
盘和打印。我是把低分辨图形转入到高分辨率后，再进 
行存盘和打印的。 

10 PRINT CHR$ (4); ,, PR#3 W ： PRINT ： HGR2 
20 VTAB2：HTAB 8: PRINT" 低分辨率全屏幕绘图 w ： PRINT 
30 PRINT TAB(7) 一 I- 向上％ : HTAB 20:PRINT"Y- 左 上，， 
40 PRINT TAB (7)〆'M- 向 下 ％: HTAB 20:PRINT"G - 左 
下 ，' 

50 PRINT TAB(7) 向左 ' : HTAB 20:PRINT 〃 H- 右上〃 
60 PRINT TAB(7); 〃 K- 向右 〃； : HTAB 20:PRINT"B • 右下 " 
70 PRINT TAB(7);"7 - 画图 〃； : HTAB 20:PRINT'0- 擦图 " 

80 VTAB 10：HTAB 7 ： PRINT w Esc 键结束画图 " "GET K $ 
90 X=0 : Y=0 * XI=39 : YI=47 
100 TEXT : GR 

110 POKE-16304,0 « POKE- 16302, 0 * POKE-16300, 0 * 
POKE-16298,0 
128 FOR 1=40 TO 47 
130 FOR J=0 TO 39 


②取磁带内容方法 :准备 好放音 

附录兰 

?• LOAD〆 

光标消失，十几秒后产生“嘟”的一声，恢复编辑区指 
针,过一会儿又响第二声，且光标重现，取带结束。 

这时编辑区已经恢复。 

? EDIT/ 进入编辑器 

可以看到从磁带取出的文本，然后打 Ctrl 一 C 处理，新 
的过程即被定义装入工作空间。 

附 录四： 注意事项 

一、刚开机时，立刻用附录一中的方法取出 .S.L. 
RCD 文件后，进入编辑器，不一定会看到附录二所示 
文本，可能是一片空白或一些奇怪的东西。这时打 Ctrl 
一 C ， 附录二的四个过程亦会定义出来。若这时再进编 


140 COLOR = 0 : PLOT J,I 
150 NEXT J,I 

160 GETA$ * A = ASC(A$ ) ： E$ =A$ 

170 IF A = ASC("0〃）OR A = ASC(" 7" )THEN E 会 VAL(E 

I 

$ )：GOTO 160 

180 IF A=73 AND Y>0 THEN Y = Y-1 : GOTO 260 
190 IF A = 74 AND X>0 THEN X = X-1 * GOTO 260 
200 IF A=75 AND X<X1 THEN X=X+1 : GOTO 260 
210 IF A = 77 AND Y<Y1 THEN Y = Y+1 : GOTO 260 
220 IF A = 71 AND X>0 AND Y<Y1 THEN X = X-1 : Y = 
Y+l : GOTO 260 

230 IF A = 72 AND X<X1 AND Y>0 THEN X = X+1 : Y 
= Y-1 * GOTO 260 

240 IF A=89 AND X>0 AND Y〉0 THEN X = X-1 : Y^=Y- 
1 : GOTO 260 

250 IF A = 66 AND X<X1 AND Y<Y1 THENX=X+1 : Y 
+ 1 : GOTO 260 

260 COLOR= 15 : PLOT X,Y * FOR 1= 1 TO 30 : NEXT I : 

COLOR = E « PLOT X,Y 
270 IF A<>27 THEN 160 

280 TEXT : PRINT CHR $ (4) ; V PR# 3" : PRINT * HGR2 
290 VTAB 3：HTAB 7:PRINT 〃 1. 重画 ％: HTAB 20：PRINT w 

3. 打印 " 

300 VTAB 5 ： HTAB 7 : PRINT" 2 •存盘 v : HTAB 20 ： PRINT w 

4. 结束 w 

310 VTAB 8 ： HTAB 13 * PRINT " 请 选择 : V ;:GET K $ ： 
PRINT K $ ：K = VAL(K$ ) 

320 IF K<1 OR K>4 THEN 310 

330 IF K = 1 THEN 10 

340 IF K = Z THEN PRINT" 用户自行设计 w 

350 IF K = 3 THEN PRINT" 用户自行设计 " 

360 IF K = 4 THEN END 


辑器，附录二的文本即会出现。 

附录三中 .LOAD 命令使用时也有可能出现以上 
情况。 

二、 在附录三的步骤2 — 3°时，最好在监控状态打 
入 

* 3 F 2： F 8 03 A 6 \ 

使 Reset 软矢量指向监控命令 ctrl-Y \的入口， 
于是 Ctrl — Reset 的作用成为返回 LOGO 。 

三、 .LOAD 命令在执行中时，若出现取带错误，将 
造成机器锁死，这时可用 Ctrl-Reset 返回 LOGO 状态。 

四、 只有 • S. L. RCD 文件需用附录一的方法处理， 
其它文件皆可用附录三的方法处理。此方法可为没有 
驱动器的用户提供极大方便。 
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实用程序 


键盘录入综合训练与考核程序 


柳州市一职高 张耀洲 


键盘录入速度是计算机操作员录入员技术水平的 
一个重要指标。如何进行录入技术的训练，直接影响操 
作员录入员的培训速度。目前见诸报刊、书籍的训练程 
序和考核方法都有诸多不便。例如参考文献①所用的 
综合训练与考核方法，就具有代表性。其主要缺 点是： 
要用马表计时，不能自动计时、计算成绩;要逐个逐句 
校核。因此，其中规定的考核标准很难判定是否真正达 
到了。考核时，既麻烦费时，考核成绩也难免会有一定 
的水分。 

下面所列几會程序克服了上述缺点，自动计时，自 
动计算成绩，按错键可以自动倒扣若干个。 

程序1为 CEC — I 上的程序。运行后，将键盘上的 
五十九个字符随机出现排列成11行扣列（隔一行显 
一行）。按任一键后屏幕上方显示电子表。立即开始按 
键。 一 行中正确按键十次后，按错一键时，光标左移 D 
(=10) 个字符，重新按顺序按键。本程序允许最大输入 
速度为503个/分钟,若删去70行的 FLASH 及80行 
的 NORMAL ， 并且删去显示电子表的语句，则允许的 
最高输入速度还可提高。但是，本程序90行以前的任 
何修改都有可能影响电子表的精确度。修改了就必须 
重新测定 MI 和 SI ( = MI /60) 的值。考核与练习时间为 
E ( = 5) 分钟，满5分钟后，自动显示成绩， E 最大允许 

分钟， V 为录入速度，单位是个/分钟。例如 V 

= 250,则 E ^68. 4分钟。即允许输入速度为250个/分 
钟的人连续练习 68. 4分钟。若这个指标还要加大，将 
80行最后一句中的 L < F 的 F 改为大于40的数即可。 

训练或考核过程中,允许连续五次（每次5分钟） 
输入，满五次时，自动显示各次成绩，如限定每人只考 
三次，则可将92行中 “ CU >4” 改为 “ CU >2” 即可。这 
样，考核时，只要规定学生在指定时向(例如半小时)内 
拿出成绩来，然后老师再去看即可，无须守在学生旁 
边。 

倒扣个数 D 、 考核时间 E 的值可在10行中修改。 

程序2为 LASER —310机的程序。运行后屏幕上 
也是显示满屏 （15 行 X 32 列 ）480 个随机排列的字符。 
按任一键后就应开始输入，电子表不显示出来。允许最 
高输入速度为每分钟272个字符。达到最高速度时电 


子表每5分钟慢30 秒; 若5分钟内不按任何键，则电 
子表快20秒。这种计时误差引起的成绩误差已通过 
92行的 K 值计算公式得到纠正。因此，显示出来的成 
绩，若不是每分钟132个时,5分钟的总数与每分钟平 
均数不一致。而且，92行以前的任何改动都可能造成 
考核成绩的不准确。程序2运行后输入超过 F ( = 5) 个 
字符后，按错一键，倒扣 F ( = 5) 个。如要修改这个值可 
改30行 F 的值。 

程序3为 COMX — PC 1 机程序。运行后按空格键 
开始计时录入，应按闪烁的字符键。一行中正确按键超 
过 S ( = 21) 次后，按错一键，倒扣 E (=10) 个。这两个值 
都可以在20行修改。但必须使 B < S . 每练习一次为 M 
( = 5) 分钟， M 的值可在20行修改。除了 80行与 M 值 
外，200行以前的任何改动都不会影响电子表的准确 
性，而只会影响允许最高输入速度。本程序允许最高输 
入速度为255个/分钟。运行后允许连续操作 

分钟 

其中 E ( = 22) 为一屏的行数， V 为输入速虔，例如 V = 
250,按程序中的 R = l . 0 ，E = 22 计算，则运行程序3 
可以连续输入大约39分钟。若要力卩大这种值，可以在 
10行修改 R 的值. 程序3也可以连续考核五次，满五 
次后，同时显示各次的成绩。按 ESC 中断与键入 RUN 
命令后重新运行也不会冲掉前几次的成绩。 

以上三个程序都是将59个键盘字符以同等机率 
随机显示在屏幕上的，因此，很适合初期综合训练。事 
实证明，我校88微机中专班35个学生仅经过]6周， 
每周1、5 —— 2小时的练习(其中还包括单个字符键的 
输入练习 7-9 周）即全部达到每分钟80个以上的水 
平，16人超过90个，9人超过98个，最高的达到110 
个。^班学生仅用6台机器一个下午的时间就基本考 
核完。 

程序1 

10 Z =59 ： J1 = 32 ： C=2 ： TE=18 ： N=10 ： F=40 ： JJ=49152 ： 
QJ = 49168 ： D=10 ： OT=127：OS = OT+1：E = 5：TF = 
34:S1 = 8. 38 ： M1 = 503 
20 Q=(N+1) *F：DIN A%(Q) 

25 L=0 ： B=C ： S=0 ： M=0 ： HOME：FOR 1=1 TOQ ： A%(I) = 
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RND(l) * Z+Jl jVTAB BjPRINTCHR $ (A%(I)), : B=B 
-f (I=INT (I/F) * F) * C ： NEXT：GET W$ :PRINT ，"'； 

30 B=l：FOR 1=0 TON ： B=B-hC：FOR K=1 TO F：J = I*F 
+ K;VTAB B：HTAB K ： FLASH.PRINT" ^ PEEK 

(JJ) ： R= (P>OT) : POKE QJ,O s P = P-OS ： T==((P = A% 
(J))-(P<>A%(J)AND K>D) *D) * (R = 1)：K = K-1 
+T：IFM = ETHEN 90 

80 NORMAL ： VTAB 1 : HTAB TE：PRINT M;，" " ； INT(S/S1), 
CHR $ (TF),:S=(S+1) * (S<M1) ： M=(S==0)+M ； 
VTAB B ： HTAB(T>-1) * K+(T<0) * (K-T+l) ： PRINT V 
% ： NEXT ： NEXT S L=L+1：IF L<F THEN 30 
90 NORMAL : INVERSE：VTAB 2：HTAB 8：PRINT =%L 

* (N+l) * F + J- 1 1 TAB(23) ； w ZHENGJI s v , s Z1 = INT 
((L* (N+l) * F-hJ-l)/M)：PRINT Zl：POKE QJ,0：CU 
=CU-f 1 ： Z(CU)=Z1 
92 IF CU>4 THEN 250 

95 FOR I = 1 TO 30: PRINT CHR $ (7)j ： NEXT ： PRINT" 
SHIFOU JISU? (Y/N” : NORMAL 

96 GET W$ jIF W$ ="Y"THEN 25 
100 IF W$ ="N W THEN 250 

110 GOTO 96 

250 FOR 1 = 1 TO CU：VTAB 7 + I:HTAB 7：PRINT "DI W ,I〆' 
CU.^j Z (I )； NEXT ： PRINT" D = D ： PRINT CHR 
$ (7)；：GOTO 250 

程序 2 

5 REM LASER-310 JI ZHIFA ZHENGXI WU DANZU BIAO 
DAO KO F GO 

10CLS ： N=480 ： P=28704：DIM A<N+2>：FOR 1=1 TON：A 
(I) = RND(59) + 31:K = 0 

20 POKE P,A(I) ： P=P-hl ： NEXT ： A(0) = 32 ： L=0 : S=0 
30 F = 5 ： P=28703 ： B=60sC= 4：T = 34：E = 5 s G= 159：H = 
11,R = 9 

33 IF INKEY $ < w w OR INKEYOR INKEY $ 
THEN 33 

35 FOR 1=1 TON:K=(K+l) * ABS(K<C) :S= (S+ABS(K 
=C>) * ABS(S<B) 

40 A $ =INKEY $ ： U= ABS(A $<>，'〃）•• A $ = A $ +CHR 
$ (R).Q=-(U* ASC(A$ ) = A(I+1)) 

45 J =-(U=l) * J+1:Q=Q+F* (U=l ANDQ = 0 AND J 
= 2 AND I>F) 

50 M = M-(S=B),POKE P+I，G * ABS(Q>-1)-A(I) * (Q< 
0)：IF M=E THEN 90 

60 D =N + I-1:D=D-INT(D/N) * N：POKE P + I-1 ， A(D):I 
= I4-Q+(I<>N) 

80 NEXT：L = L+1：IF L<10 THEN POKE P + N-1,A(N- 
l)：POKE P+N ， A(N):GOTO 35 
90 CLSjV= (I + L * N)/M：PRINT @45 ， M" FENZHONG 
= »I+L*N 


92 K= 300/280 +(1/330 — 1/280) * V: PRINT @77，" 
ZHENGJI:" , INT (K * V) 

93 PRINT @99, W F = "F W : PRINT @131 / , LZF-F-9025 f, 

95 FOR J=1 TO 10 ： SOUND23 ， 7:NEXT 

100 PRINT @16 方 ， SHIFU JISU? (Y/N) W ；IF INKEY $ = ，， Y" 
THEN RUN 

110 IF INKEY $ ="N" THEN END 
120 GOTO 100 

程序 3 

5 REM CZF>20-10 900208 

10TIMOUT200：CPOS (0,0) ： CLS；DEFINT A s E=22 ； F=40s 
r=10 ： W=64 ： G=F+1：DIM A(E ， F) ， Z(10) 

20 P =59：Q = 32 ： B=10 ： S=21：M = 5 ： C$ =CHR$ (107 )： 
FOR 1=1 TO E：FOR J=1 TO F:A 〈 I ， J) = RND (P)-hQ 
30 IF A 〈 I ， J)=W THEN J=J-l：GOTO 50 
40 PRINT CHR$ (A(I ， J)) ; 

50 NEXT ： NEXT ： L=0 
65 IF KEY =32 THEN 80 
70 GOTO 65 
80 TIME(M * 3000) 

83 FOR K = 0 TO R：FOR 1=1 TO E：FOR J=1 TO F：A = 
KEY：C POS(I-l,J-l)：PRINT CHR $ (A(I,J))：IF A = 0 
GOTO 120 

90 IF A = A(I,J) THEN J=J-fl：GOTO 120 
100 IF J<S GOTO 125 
110 J=J-B 

120 IF J=G GOTO 130 

125 C POS(I-l,J-l) ： PRINTC$ 

130 J=J-l ： NEXT ： NEXT ： NEXT：K = K-ljI = I-l ： J=J-l 

200 C POS(0,0) ： CLS ： X=(K * E + I-l) * F + J：PRINT M ; " 

FENZHONG = ZHENGJI ： INT(X/M) 

201 C POS (2,7) ： PRINT W S = ,/ ； S J C POS(3,7): PRINT " B 
= ",B:Y=Y+ 1 ： Z(Y) = INT (X/M) 

210 MUSIC(5,4,15):WAIT (150) s MUSIC(0,0,0) 

216 IF Y<4 GOTO 260 

220 PRINT "SHIFOU JISU? (Y/N )，， 

230 IF KEY = 89 THEN RUN 
250 GOTO 230 

260 FOR L=1 TO Y:C POS (L +7,7) : PRINT 
CU:" ; Z(L):NEXT / 

265 C POS (7+ L, 7 )： PRINT "S = %S:C POS(8 + L,7): 
PRINT 〃 B=%B 

270 IF KEY=1 THEN Y = 0：RUN 
280 GOTO 270 

300 REM COMX—PCI ^ilFA 900208 

参 考文献 

①刘尊全主编微型计算机操作员录入员培训教材 
清华大学出版社 
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⑩ & Ln ，： m 设置打印宽度为 m ， 打印行号为 n 以 
后的程序段。 

这里，&以后的字符 P 代表图形打印, L 代表程序 
清单打印，冒号后面的数值是设置的打印宽度。 

打印程序可以在开机之后或打印之前任何时候调 
入内存，操作为： BRUN 打印程序（注意不能用 
BLOAD ) 。 

欲进行打印时，只要输入上面的命令，计算机便自 
通常，利用打印机打賴形或程序清单时，-般帛 启打印 机#»行_’打_束后将自动关闭打 
进行多步操作，诸如接通打籠、设置打印方式、启动 作 只在屏 幕±_。这 S 新定义的_ 

打印、断开打箱等等。这關雛不仅麵 ，酣还 巾犹为_、 

将一些不必要的字符也打印下来，如打印时设置的一 ^ 

些命令象 POKE 1913, n , PRINT CHR $ (17), POKE 打印机自动打印程序(机器码） 


1657， n 、 LIST 、 PR #0 等等。这些多余的字符使得整个 

6000- 

A9 

OB 

8D 

F6 

03 

A9 

60 

8D 

纸面既不整洁也不美观。 

6008- 

F7 

03 

60 

A0 

00 

A9 

00 

85 

6010- 

3C 

A9 

02 

85 

3D 

A9 

40 

85 

为了减少操作上的麻烦，避免不必要的字符的出 

6018- 

3E 

A9 

02 

85 

3F 

A9 

50 

85 

现，笔者用6502指令编写了一段程序，定义了新的打 

6020- 

42 

A9 

02 

85 

43 

20 

2C 

FE 

印命令。利用它可完成计算机的自动打印，使得打印的 

6028- 

AD 

51 

02 

C9 

50 

F0 

05 

C9 

控制操作变得非常简便。 

6030- 

4C 

F0 

38 

60 

A0 

00 

A9 

CB 

打印程序通过&字符特有的内存转向功能，使程 

6038- 

85 

3C 

A9 

60 

85 

3D 

A9 

EF 

序进入执行。 

6040- 

85 

3E 

A9 

60 

85 

3F 

A9 

00 

下面介绍打印控制命令 

6048- 

85 

42 

A9 

02 

85 

43 

20 

2C 

1. 图形打印命令 

^ 6050- 

FE 

A0 

00 

B9 

52 

02 

C9 

20 

若进行图形打印，可通过下面的操作命令来完成。 

6058- 

DO 

03 

4C 

67 

60 

C9 

00 

DO 

① & P 1 缩小打印高分辨率图形第一页。 

6060- 

03 

4C 

B6 

60 

99 

0E 

02 

C8 

② & P 2 缩小打印髙分辨率图形第二页。 

6068- 

4C 

53 

60 

A0 

00 

A9 

FI 

85 

③ & P 3 联页打印高分辨率图形第一页及第二页。 

6070- 

3C 

A9 

60 

85 

3D 

A9 

17 

85 

④ & P 33 缩小反相打印高分辨率图形第一页。 

6078- 

3E 

A9 

61 

85 

3F 

A9 

00 

85 

6080- 

42 

A9 

02 

85 

43 

20 

2C 

FE 

⑤ & P 34 缩小反相打印高分辨率图形第二页。 

6088- 

AO 

00 

B9 

52 

02 

C9 

00 

DO 

⑥ & P 65 放大打印高分辨率图形第一页。 

6090- 

03 

4C 

B6 

60 

C9 

3A 

DO 

03 

©& P 66 放大打印高分辨率图形第二页。 

6098- 

4C 

A2 

60 

99 

16 

02 

C8 

4C 

⑧ & P 97 放大反相打印高分辨率图形第一页。 

60A0- 

8A 

60 

A2 

00 

B9 

53 

02 

C9 

©& P 98 放大反相打印高分辨率图形第二页。 

60A8- 

00 

DO 

03 

4C 

B6 

60 

9D 

0E 

2. 程序清单的打印命令 

60B0- 

02 

C8 

E8 

4C 

A4 

60 

A2 

01 

① & L 打印全部程序清单。 

60B8- 

86 

B9 

A2 

FF 

86 

B8 

20 

B1 

② & Ln 打印行号为 n 的语句。 

60C0- 

00 

20 

59 

D5 

20 

B1 

00 

4C 

③ ， n 2 打印行号为 n ! 至 n 2 间的程序段。 

60C8- 

28 

D8 

00 

50 

52 

23 

31 

3A 

④ & L ， n 打印行号为 n 以前的程序段。 

60D0- 

50 

4F 

4B 

45 

31 

39 

31 

33 

⑤ & Ln ， 打印行号为 n 以后的程序段。 

60D8- 

2C 

20 

20 

20 

3A 

50 

52 

49 

®& L ： m 设置打印宽度为01，打印全部程序清单。 

60E0- 

4E 

54 

43 

48 

52 

24 

28 

31 

⑦ & Xn : m 设置打印宽度为 m ， 打印行号为 n 的语 

60E8- 

37 

29 

3A 

50 

52 

23 

30 

00 

句。 

60F0- 

00 

50 

52 

23 

31 

3A 

50 

4F 

60F8- 

4B 

45 

31 

36 

35 

37 

2C 

34 

⑧设置打印宽度为 m ， 打印行号为 n , 

6100- 

30 

20 

3A 

4C 

49 

53 

54 

20 

至 n 2 间的程序段。 

6108- 

20 

20 

20 

20 

20 

20 

20 

20 

⑧ & L ， n : m 设置打印宽度为 m ， 打印行号为 n 以 
前的程序段。 . 

6110- 

20 

20 

3A 

50 

52 

23 

30 

00 
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趣蜂程序 • 




算机的 随机& 

函数，可以彳 ....... 

方便地进行 f 

开奖活动，$ •， . >• 

代替普通的$ 

摇奖机， 

样能做到合 | 

理、公正。在 f 、• 父' 

STC 4. 0软 | . 


______ 


上海市南汇县教师进修学忮 刘同侃 


| 必要象普通 
义摇奖机那 
| 样， 一个一 
f 个数码地 
$摇。具体的 
$方法 是：首 
0先算出基本 
| 中奖号区间 
| U ， A 是户 


持下，我们编制了苹果电脑摇奖程序，有汉化的人机对 
话功能，操作十分方便。改变程序中有关软汉字系统的 
语句，该程序可适用于任何一种机型。整个程序简短、 
易读。 


中奖个数 H 的 fe ， 其次分别算出最大中奖号码的位数 
D 和基本中奖号 B (最初的 B 实际上也是最小的一个 
中奖号），再次，在进入打印中奖号码的循环后，算岀中 
奖号前应添数码0的个数 C ， 并打印出所有的中奖号 


程序对每个开奖组的户数(用变量 M 表示）作了 
规定，要求能被1，000,000,000整除，这样中奖号码最 
多显示九个数字，一般八位微机都能直接胜任。为了使 
获奖机会均等，使中奖号码分布均匀，并使开出的中奖 
号码个数不至太多，程序还对每个奖级的中奖个数(用 
变量 H 表示)提出了能被户数 M 整除的要求，这和一 
般开奖的实际情况是相符的。该程序允许的开奖户数 
最多可达 io 亿，这在一个省市、甚至全国的范围内都 
是可行的。所设奖级个数(用凌量 N 表示)则不作任何 
限制。 

程序设计的关键，是确定某个奖级的中奖号码个 
数(用变量 X 表示）。一般地说，某个奖级有多少个奖， 
就有多少+中奖号码 (X = H )， 当中奖个数较多时，令 
人眼花瞭乱。事实上，对奖是采用对编码末几位数字的 
方法，当中奖号码个数是]0的整数倍时，应该把 X 尾 
部的若干个0去掉。例 X = 20 时，只要开出二个中奖 
号码如470、970,而在其前分别添加0至9,就有 
0470、1470…9470,!0970、1970."9970共二十个号码中 
奖。反之，为了使任何一组连续的奖券号都可用于户数 


码 B (基本中奖号与区间 A 的值逐次累加）。计算 C 的 
步骤必不可少。例如当每10000户中有二个一等奖时， 
在基本号区间 A = M / H = 10000/2 = 5000中摇出基本 
中奖号753,算出最大中奖号码的位数 D 是4位，就必 
须在753前添加数码0得0753,否则按照对末几位数 
字的对奖方法，0753,1753,…，5753,…，9753,共10个 
号码都中奖，那是不行的。除了 0753,另一个中奖号码 
是5753。 

程序输入后可以试运行几次，确信其随机性后可 
打印输出。 

10 INPUT " 多少户为一开奖组？共设几个奖级? "; M，N 
20 Y = lE +9/ M：IF Y <> INT ( Y ) THEN PRINT " 户 
数不合要求，应能被1000000000整除，重新输入 〃： 
GOTO 10 

30 INPUT " 要打印吗？" ; P $ : PRINT CHR $ (26) 

40 IF P $ =" Y 〃 THEN D $ = CHR $ (4)： PRINT D 
$"STC Bl ": PRINT TAB <8>〃 苹果摇 奖 〃： PRINT 
M ;〃 户为一开奖组，共设"； N ; " 个奖级 〃： PRINT D 
$ "STC B 0 W 


为 1. 25 X 10 m 、2 X 10 m 、2. 5 X 10 m 、4 X 10 m 、5 X 10 m 或 8 
X 10 m 等的开奖活动，有必要把户数虚拟地扩展为 IX 
10" (其最大可能是1 X 10 9 )，并把中奖个数 H 扩大同样 
的倍数，即 X =1 X 10 9 XH / M ， 并把可能产生的 X 尾部 
的0去掉。例如每25000户为一开奖组，设某等奖1 
个，则开奖号码个数 X = 1 X 10 9 X 1/25 0 00 = 4 X 10 4 , 
去掉尾部的0,应开出中奖号码4个，即不仅在00000 
〜24999间有一个号码，在25000〜49000, 50000〜 
74 "9, 7 5000〜99999间各有一个中奖号码。程序的 
100和110号语句就是完成这项功能的。 

程序的另一技巧，是确定中奖号码。根据 i " f 算机的 


50 FOR I = 1 TO N 
60 INPUT " 几等奖？有多少个?、 G，H 
70 A = M / H ： IF A <> INT ( A ) THEN PRINT " 该等奖 
个数不合要求，应能被户数〃； M ;〃 整除，重新输 
入 "： GOTO 60 

80 IF P $ = "Y ，， THEN PRINT D $ "STC Bl 〃 

90 PRINT G ; " 等奖，有"； H ; " 个，中奖 号码 :〃： IF A =1 
THEN PRINT " 所有号码 ": GOTO 200 
100 X = Y*H 

110 IF X /10= INT ( X /10) THENX = X /10 ：GOTO 110 
120 D = LEN ( STR $ ( A * X -1))： B = INT ( RND ( l ) * 
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高分辨率图形的趣味换页和清屏 

4 


苏州景范中学赵旭 


在编制微机辅助教学软件时，如果对高分辨率图 
形采用多种形式的换页和清屏，能增强软件的趣味性。 
这对激发学生的学习兴趣能起一定的作用。本文介绍 
二种实现高分辨率图形趣味换页和清屏的方法。 

一种方法是借助于6502汇编语言。如程序一。能 
提供8种形式的换页或清屏。它们分别 是:上 下向中 
间； 中间向上下;从上 到下; 从下到上;左右向 中间； 中 
间向左右;从左 到右; 从右到左。在 BASIC 程序中可用 
& H ， L 命令调用。其中 L 的值决定哪种形式(范围1〜 
8)，而 H 的值为1是清屏，为/是换页。具体方法是先 
置&命令的入口地址 (3 F 5:4 C 27 61)。需趣味换页时， 
将图形放入第二页,并置第一页为操作页 ( POKE 230, 
32)，用&命令调用后即能将第二页图形趣味地移到 
第一页。在趣味清屏时，如果 POKE 230,32 就清第一 
页，而 POKE 230,64就清第二页。程序二为示范程序， 
将程序一调入内存后运行程序二，能将以上16种形式 
从头到尾表演一遍。表演后，如果觉得运行速度不合要 
求，可改动程序一中$6001单元中的值（范围0〜 
255)。 

另一种方法是在汇编程序基础上运用 BASIC 语 
言编出各种形式的换页和清屏程序。其优 点是: 程序容 
易理解，修改方便。 


以下举例说明。程序三是将高分辨率局部图形在 
二页间相互传送。它有二个 入口： $6000将第二页传 
送到第一页，而$6013将第一页传送到第二页。调用 
时，先将所传送的局部图形的左上角坐标 Xl 、 yl 存入 
$ 00— $01单元，右下角坐标 X 2、 y 2 存入$ 02 — $ 03 
单元。并置操作页，当 POKE 230,32时，则第二页传送 
到第一页。当 POKE 2 30,6 4 时,则第一页传送到第二 
页。 ^ 

程序四是以程序三为基础，用 BASIC 语言编写的 
将高分辨率第二页的图形趣味传送到第一页的示范。 
共有4种形式:10行为水平交叉; 20行为棋盘格显示； 
30行为中间向 上下; 40行为竖直交叉。如果第二页无 
图形即为将第一页趣味清屏。弄清了程序四后，就能根 
据自己的要求另外编出各种各样的换页与清屏的程 


序。 

程序一 

6000- 

A 9 

90 

20 

A 8 

FC 

8 D 

30 

CO 

6008- 

60 

20 

0 C 

61 

A 0 

00 

A 5 

00 

6010- 

C 9 

01 

DO 

07 

A 9 

00 

91 

06 

6018- 

4 C 

1 E 

60 

20 

F 9 

60 

C 8 

CO 

6020- 

28 

D 0 

EB 

20 

00 

60 

60 

8 A 


6028- 48 20 09 60 86 FA A 9 BF 

冬*芩冬卒芩**芩卒芩岑*芩芩年冬卒年芩芩芩芩芩芩芩芩芩*芩芩年*芩冬芩芩芩芩芩*芩 


A ) 

130 FOR J =1 TO X 

140 C = D - LEN ( STR $ ( B))：IFC 

150 FOR K =1 TO C 

160 PRINT 0 ； : NEXT K 


1000 户为一开奖组，共设 4 个奖级 
1等奖，有1个，中奖 号码： 

= 0 THEN 170 652 

2等奖，有4个，中奖 号码： 

068 


170 PRINT B 


318 


180 B = B + A:NEXT J 


568 


190 IF P $ Y " THEN PRINT D $ "STC B 0" 

200 NEXT I ： END 
RUN 

多少户为一开奖组？共设几个奖级？ 1000,4 要打印吗？ 
Y • 

苹果摇奖 


818 

3等奖，有20个，中奖 号码： 
31 
81 

4等奖，有100个，中奖 号码: 
5 


31 



6030- 

38 

E5 

FA 

AA 

20 

09 

60 

68 

6038- 

AA 

60 

98 

48 

20 

FE 

60 

84 

6040- 

FA 

A9 

27 

38 

E5 

FA 

A8 

20 

6048- 

FE 

60 

68 

A8 

60 

20 

E9 

60 

6050- 

E8 

E4 

FF 

DO 

F8 

60 

A2 

00 

6058- 

8A 

48 

20 

11 

F4 

68 

AA 

A5 

6060- 

26 

9D 

00 

94 

A5 

27 

9D 

00 

6068- 

95 

E8 

E0 

CO 

DO 

EA 

60 

EA 

6070- 

20 

56 

60 

A2 

00 

EA 

20 

27 

6078- 

60 

E8 

E0 

60 

DO 

F7 

60 

EA 

6080- 

20 

56 

60 

A2 

5F 

EA 

20 

27 

6088- 

60 

CA 

E0 

FF 

DO 

F7 

60 

EA 

6090- 

20 

56 

60 

A2 

00 

20 

09 

60 

6098- 

E8 

E0 

CO 

DO 

F8 ‘ 

60 

EA 

20 

60A0- 

56 

60 

A2 

BF 

20 

09 

60 

CA 

60AB- 

E0 

FF 

DO 

F8 

60 

EA 

20 

56 

60B0- 

60 

A0 

00 

20 

3A 

60 

C8 

CO 

60B8- 

14 

DO 

F8 

60 

EA 

20 

56 

60 

60C0- 

A0 

13 

20 

3A 

60 

88 

CO 

FF 

60CB- 

DO 

F8 

60 

EA 

20 

56 

60 

A0 

60D0- 

00 

20 

FE 

60 

C8 

CO 

28 

DO 

60D8- 

F8 

60 

EA 

20 

56 

60 

A0 

27 

60E0- 

20 

FE 

60 

88 

CO 

FF 

DO 

F8 

60E8- 

60 

20 

OC 

61 

A5 

00 

C9 

01 

60F0- 

DO 

07 

A9 

00 

91 

06 

4C 

FD 

60F8- 

60 

B1 

08 

91 

06 

60 

A2 

00 

6100- 

20 

E9 

60 

E8 

E0 

CO 

DO 

F8 

6108- 

20 

00 

60 

60 

BD 

00 

94 

85 

6110- 

06 

85 

08 

BD 

00 

95 

85 

07 

6118- 

18 

69 

20 

85 

09 

60 

70 

80 

6120- 

90 

9F 

AE 

BD 

cc 

DB 

EA 

20 

6128- 

46 

E7 

A5 

50 

85 

00 

BD 

ID 

6130- 

61 

8D 

35 

61 

4C 

70 

60 

00 


程序二 

5 POKE 1014, 39： POKE 1015, 97: HGR2： POKE- 
16300,0：HCOLOR = 3： FOR 10 TO 270 STEP 

5：HPLOT X，10 TO X, 180：NEXT：FOR Y=10 TO 
180 STEP 5： HPLOT 10, Y TO 270, Y； NEXT： 
POKE 230,32：CALL - 3086：FOR L=1 TO 8：FOR 
H = 2 TO 1 STEP - l：&H,L；FOR T=1 TO 500： 
NEXTT,H,L 


程序三 

6000- 

A6 

01 

20 

48 

60 

18 

69 

20 

6008- 

85 

09 

20 

56 

60 

E8 

E4 

03 

6010- 

DO 

F0 

60 

A6 

01 

20 

48 

60 


32 


6018- 

38 

E9 

20 

85 

09 

20 

56 

60 

6020- 

E8 

E4 

03 

DO 

F0 

60 

8A 

29 

6028- 

CO 

85 

26 

4A 

4A 

05 

26 

85 

6030- 

26 

8A 

85 

27 

0A 

0A 

0A 

26 

6038- 

27 

0A 

26 

27 

0A 

66 

26 

A5 

6040- 

27 

29 

IF 

05 

E6 

85 

27 

60 

6048- 

20 

26 

60 

A5 

26 

85 

06 

85 

6050- 

08 

A5 

27 

85 

07 

60 

A4 

00 

6058- 

B1 

08 

91 

06 

C8 

C4 

02 

DO 

6060- 

F7 

60 

00 

00 

00 

00 

00 

00 


程序四 

5 HGR2： HGR： POKE - 16302, 0： POKE 230, 64： 
HCOLOR= 3： FOR X = 10 TO 279 STEP 5： 
HPLOT X, 10 TO X, 180： NEXT： FOR Y= 10 TO 
180 STEP 5： HPLOT 10, Y TO 270, Y: NEXT： 
POKE 230,32 

10 FOR 1 = 0 TO 38：J= 38 - I：POKE 0，I:POKE 1,0： 
POKE 2，I+l:POKE 3,47：ALL 24576：POKE 0，J: 
POKE 1,47： POKE 2, J + 1: POKE 3, 95: CALL 
,24576： POKE 0, J：POKE 1, 143： POKE 2，J+1: 
POKE 3,191 ：CALL 24576：POKE 0，I:POKE 1,95： 
POKE 2，I+l:POKE 3，143:CALL 24576：NEXT 
15 FOR T=1 TO 600：EXT：CALL - 3086 
20 FOR Y = 3 TO 141 STEP 46： FOR X = 0 TO 33 
STEP 6：POKE 0，X:POKE l,Y：POKE 2，X + 3: 
POKE 3, Y +23： CALL 24576： POKE 0, X + 3: 
POKE l，Y + 23:POKE 2,X + 6:POKE 3，Y + 46: 
CALL 24576：FOR T=1 TO 100：NEXT T，X,Y: 
POKE 0,0：POKE 1,0：POKE 2,39：POKE 3,191： 
FOR T=1 TO 400：NEXT : CALL 24576 
25 FOR T=1 TO 600：NEXT：CALL - 3086 
30 FOR 1=90 TO 0 STEP - 10：J=190 -I：POKE 0,0： 
POKE 1,1： POKE 2,39； POKE 3, J: CALL 24576： 
NEXT 

35 FOR T= 1 TO 600：NEXT：CALL - 3086 
40 FOR 1=0 TO 180 STEP 10：J=180 - I：POKE 0,0： 
POKE 1,1： POKE 2, 10： POKE 3, I + 10: CALL 
24576：POKE 0,20：POKE 1,1：POKE 2,30：POKE 
3,1+10: CALL 24576： POKE 0, 10： POKE 1, J： 
POKE 2,20： POKE 3, J+10: CALL 24576： POKE 
0, 30： POKE 1, J： POKE 2, 39： POKE 3，J + 10: 
CALL 24576： NEXT 




315 IFR> =0.5 THEN A $ =“R»N 
320 IF A $ =“L” THEN 350 
330 IF A $ =“R” THEN 390 
340 PRINT CHR$ (7)-GOTO 310 


• 趣味程 序 • 



黑龙江省呼兰师专 吴全有 

本程序是利用图形表方法编写的划船动画。背景 
为山、亭和太阳。草木是随机产生的。开机后，自动划 
船，前进方向随机产生，船桨不断摆动。为增加动画效 
果，加入了划桨的声音，使之如临其境。船在画面水域 
内不断改变位置，在临近边界时自动调整方位，运行起 
来很有趣味。该程序在 APPLE I 机上调试通过。 

附程序清单及画面。 

10 HGR2 : HCOLOR = 3 : HOME 
20 X= 80, Y0 =30 ： A=15 

30 FOR I=H. 5*3. 14159 TO 1. 5 * 3. 14159 STEP 1/A 
40 X=l. 1 *A* COS (I),Y = A* SIN(I) 

50 Hl=X0-fX ： V=Y0-Y ： H2 = X0+ABS (X) 

60 HPLOT HI, V TO H2，V 

70 NEXT I 

80 GOSUB 850 

90 FOR N = 0 TO 150 

100 READ T：POKE 2,4576+N,T 

110 NEXT N 

120 FOR N=0 TO 193 

130 READ t：POKE 24750+N,T 

• w ；' r • i l ' % .1r. { , , 

140 NEXT 

.广 I ；"•» »•< ■； ■ t - j ； ； .. t . ' 

150 FOR N=0 TO 185 

160 READ T：POKE 24950-fN,T 

170 NEXT N 

180 POKE 232,0：POKE 233,96 : ROT=0 : SCALE^1 

190 DRAW 1 AT 40 t 80：DRAW 2 AT 153,35 

200 DRAW 2 AT 210,28 

210 GOSUB 950 

220 H=30 : V=190 

230 FOR 1 = 0 TO 200 STEP 20 

240 HPLOT H+I，V TO H+J+30 ， V-4 

250 NEXT 

260 H=50 ： V=90 

270 HPLOT H-10,V TO 250,V 

280 HPLOT H,V+5 TO 150 ， V+2 

290 HPLOT 80,V+2 TO 230,V+1 

300 H=140 ： V=140 ： T=0 

305 R=RND (1) 

310 IF R < 0. 5 THEN A $ =“L” 


350 H=H-5 ： V=V-2 ： T=T4-1 

360 IF H < 40 THEN A $ GOSUB 640:GOTO 320 

370 IF V < 100 THEN 770 
380 GOSUB 510：GOTO 320 
390 H=H+5:V=V+2:T=T+1 

400 IF H > 230 THEN A$ =“L”：GOSUB 510：GOTO 320 
410 IF V > 150 THEN 810 
420 GOSUB 640：GOTO 320 

430 HPLOT 70,24 TO 73,24：HPLOT 86,24 TO 89,24 
440 HPLOT 69,25 TO 74,25：HPLOT 85,25 TO 90,25 
460 P=70 ： Q=35 
470 FOR N=0 TO 4 

480 HPLOT P-hN * 3 ， Q+NTO90 -N * 3 ， Q+N 
490 NEXT N 
500 RETURN 

510 POKE 232,174jPOKE 233,96 
520 HCOLOR = 3:DRAW 1 AT H，V 
530 DRAW 2 AT H，V 
540 FOR N=1 TO 100：NEXT 
550 HCOLOR = 0: DRAW 2 AT H, V 
560 HCOLOR = 3 : DRAW 3 AT H,V 
570 FOR N = 1 TO 200：NEXT 
580 GOSUB 900 

590 IF T/2= INT (T/2) THEN HCOLOR = 0：GOSUB 430 ： 
GOSUB 610 

600 HCOLOR = l：GOSUB 430 

610 POKE 232,174：POKE 233,96 

620 HCOLOR = 0 ： DRAW 1 AT H,V：DRAW 3 AT H,V 

630 RETURN 

640 POKE 232,118 ： POKE 233,97 
650 HCOLOR = 3: DRAW 1 AT H,V 
660 DRAW 2 ATH,V 

, . 

670 FOR N=1 TO 50：NEXT 

• . ， 

680 HCOLOR = 0 ： DRAW 2 AT H，V 

690 HCOLOR = 3 ： DRAW 3 AT H,V 

700 FOR N=1 TO 200 ： NEXT 

710 (JOSUB 900 

720 IF f /I INT (T/2) THEN H( 、 ,»K • :)： (iOSUB 430 ： 
GOSUB 740 

730 HCOLOR = 3 ： GOSUB J30 

740 POKE 232,118 ： POKE 2^3,97 

750 HCOLOR = 0 ： DRAW 1 AT H,V ； DRAW 3 AT H,V 

760 RETURN 

770 H=H-5 ： V=V4-2 ： T=T+1 

780 IF H<40 THEN A $ = W R" : GOTO 320 
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790 IF V > 150 THEN 350 

800 GOSUB 510 ： GOTO 770 

810 H = H+5 : V=V-2:T=T+1 

820 IF H 〉 230 THEN A$ =“L ”： GOTO 320 

830 IF V < 100 THEN 390 

840 GOSUB 640 ； GOTO 810 

850 FOR 1=770 TO 790 

860 READ N 

870 POKE I，N 

880 NEXT I 

890 RETURN 

900 FOR 1=250 TO 230 STEP - 5 

910 POKE 768,1: POKE 769,30 

920 CALL 770 

930 NEXT I 

940 RETURN 

950 DIM H(30),V(30) 

960 FOR 1=1 TO 30 !； 

970 H(I) = INT ( RND (9) * 18)：V (I) = INT (RND (3) 
* 15) 

980 NEXT I 
990 H=60 S V=9Q 
1000 FOR 1=1 TO 29 
1010 H=H+6 

1020 HPLOT H+H(I),V-V(I) TO H+H(I+1),V-V(I+1) 
1030 NEXT I 
1040 RETURN 

1050 DATA 173, 48, 192,136,208,5,206,1,3,240,9,202, 
208,245,174,0,3,76,2,3,96 
1060 DATA 2,0,6,0,51,0 

1070 DATA 14,101,12, 12, 12, 12,4,96,21,30, 1J8,14, 
14,14,77,30, 63, 63,255, 63,55,45, 77, 41, 53,63, 
223,59,55, 45, 45, 45, 45,254, 59, 255, 187, 45, 45, 
45,45,45,5,0,0 

1080 DATA 12,12,44,44,44,36,101,100,36,13,12, 12, 

12. 12. 12.12. 100.44.12.54.101 .46.22.53.46.46, 

46 .46. 110. 62.255. 27. 22.53.53.54.53. 46. 46.46, 
46 

1090 DATA 53,46,110,73,1,224,60,56,231,60,109,97, 


36, 101,12,12,100,12,100,12,44, 13, 62, 191 ， 169, 
13,30,223,179,55,182,79,73 
1100 DATA 40,109,62,55,13,109,254,191,9, 109,254, 

59.23.77.41.13.46.109.62.87.109.190.9.109.62, 

0 

1110 DATA 3,0,8,0,141,0,166,0 

1120 DATA 30,63,224,28,28,23,23,23 T 23,63,176,74, 

9.12.109.62.63. 55.45. 45.62.63.55.45.45.62. 63, 
55, 4*5, 45,30, 63,46,173,63, 63, 23,45, 45, 45,62, 

63,63,55,45,45,45,30,63,55,45,45,21,63,63,46, 
45,53,63,63,159 

1130 DATA 45, 45, 45, 30, 63, 31, 63, 23,45 ,77, 45,21 ,63, 
223,59,55 ， 109,73,173,63,223,59, 46,77,9,45,21 ， 

63.223.27.255.219.27. 63.39. 151. 9. 45. 45.45. 45, 
45,45,45,45,45,45,45,172,218 

1140 DATA 63, 63, 63, 63,63,63,63, 63,63,63,14 ,45,45, 

45,45,45,45,45,45,45,5,0 

1150 DATA 150,146,146,18,191,215,63,63,246,4,0, 
32,188, 18,30,46, 30, 30,191,1^1,191, 191 ， 191,63, 
0 

1160 DATA 150,146,146,18,30,30,30,28,63,63,7,32, 

188.50.54.30.54.54.24.30.30.62.62.190.23.23, 
7,0 

1170 DATA 3,0,8,0,142,0,161,0 

1180 DATA 14,45,96,12,12,21,21,21,21*45,176,219, 
216, 63, 23,45, 45,62, 63,55,45,45,62, 63, 119,53, 

63.23, 45, 45, 21 ， 63, 63, 63, 46, 45, 45, 53, 63, 63, 
119,45,45,62,63,191,45,45,62,63,55,45,45 

1190 DATA 62,63,55,45,45,21,63,63,63,14,45,13,45, 
21,63,31»63,46,109,45,62,255,59,191,45,77,41, 
62,255,219,63,46,109,73,45,245,219,216,219 
1200 DATA 63,23,109,73,41,109,73,73,9,30,63,63, 

63.63.63.63.63.63.63.63.63.176.9.45.45.45.45, 
45,45,45,45,30,63,63,63,63,63,63,63, 31 ， 0,0 

1210 DATA 150, 146, 146, 42, 45, 45, 45, 45, 11,21,31, 
lStl,73,117,174,117,14,46,0 
1220 DATA 150,146,146, r 170,21,13,45,45,13,32,172, 
210,14,54,54,54,46,21,21,21,46,46,46,46,0 
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数学家在寻找能计算出素数公式的漫长的道路 
上，进行了不懈的努力。他们中间有失败的教训和启 
迪，也有成功的喜悦。当然，在这当中还有不少有趣的 
插曲。 

1640年法国数学家费马 （ Fermat , 1601——1665 
年），曾认为他找到了能算出素数的公式，这就是有名 
的费马数 F ( n ) = 2 2n + 1。 

因为 F («» = 2 2 ° + l = 3 
d ) = 2 2 l H-l = 5 
F ⑵= 2 22+1 = 17 
F (3) = 2 23 -h 1 = 257 
F (4) = 2 24 +1 = 65537 

这些数都是素数。当时，费马没有作进一步的计算 
和进行证明。但他坚信所有这种数都是素数，并确信无 
疑。 

然而，在费马宣布这个公式的一个世纪后。数学家 
欧拉 （Euler ,1707—1783 _)，在 1731 年计算出 F (S) = 
4294967297,可被641整除。即 
4294967297 = 6700417 X 641 
到1971年布里哈特 (John Brillhart ) 和莫里森 
(Michael Morrison ) ，利用加利福尼亚大学洛杉机分校 
的一名计算机找到了 F (7) 的两个素因子 

F(^)= 2 2? + 1 = 2 ,28 + 1 = 
340282366920938463463374607431768211457 = 

59649589127497217 X 5704689200685129054721 

从目前的资料来看，当 n >5 费马数多不是素数。 
要判别一个较大的费马数是否是素数，确实不简单。要 
计算出一个费马数也不#易。现在用 BASIC 语言编写 
一个能计算出费马数的程序，在 CEC — I 机上仅运行十 
一分三十二秒钟，就能计算出 F =0 至8的费马数，并 
能高精度打印出来。 

程序如下(运行法省 略）： 

20 DIM A (100) 

22 PRINT “ N =，， ； 

23 INPUT N 

25 PRINT : PRINT 

26 PRINT tt N -0 w , w F (0)==3” 


27 PRINT “ N = l ，，;“ F ( l ) = 5” 

30 FOR M =2 TON 
40 LET L=INT (2^ M +0. 1) 

45 PRINT “ F (‘％ M ;”) = ”； 

50 LET Q =2 

60 LET D=INT (L * LOG ( Q)/LOG (10)) +2 

80 LET K =1 

90 LET A (1 )==Q 

100 FOR 1=1 TO L - 1 

110 LET B =0 

115 FOR J = 1 TO K 

120 LET C = A ( J ) *Q 

140 LET A ( J )= C-INT ( C /10) * 10 +B 

150 LET B=INT ( C /10) = INT ( A ( J )/10) 

160 LET A ( J )= A ( J)-INT ( A ( J )/10) *10 

170 NEXT J 

175 LET A ( J)=B 

180 IF A ( J ) > 0 THEN K = K +1 

190 NEXT I 

200 FOR J=K TO 2 STEP -1 
210 PRINT A ( J )； 

220 NEXT J 
230 PRINT A ( l ) + 1 
235 NEXT M 
265 END 
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《•接 C 3 技术 • 
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I SD - 50 Mark 的主轴恒速驱动电路 
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| 上海机械学院 •计 算中心 ii 大一 J 


SD -50 Mark I 型软磁盘驱动器属 5. 25英寸、单面 
(一个读/写磁头)软磁盘驱动器。许多 Apple 微机均配 
置该驱动器。微机主机通过接口卡和软盘控制器实现 
对它的控制。从而达到主机与外部存储器(软磁盘)间 
的数据交换。 

对于 5. 25英寸软磁盘驱动器，其主轴转速必须控 
制在 (300 士 0. 5) 转/分，该转速必须均匀稳定，不随负, 
载的变化和电源的波动而变化，这是使驱动器对软磁 
盘正确地读/写数据信号的必要条件之一。因此，有关 
电路均采用闭环调速方式来达到恒速驱动。 

SD -50 Mark I 型软磁盘驱动器中，驱动软磁盘转 
动的电机为直流无刷电机，其恒速驱动电路装配在一 
块独立的印刷线路板上，该板的俯视图如图一所示。在 
实际运用中，该恒速驱动器比较容易出故障，故障现象 
为电机不转或转速不正常(调谐 VR 1 无效果），若板上 
的 TR 1 和 TR 2 二只三极管没有损坏，则极可能是集成 
芯片 LAG 570 损坏了。由于 LAG 5 7 0 目前在国内市场 
上几乎买不到，因此，该元件的损坏就造成整台驱动器 
不能使用。为解决这一问题，特向用户提供另一驱动器 
主轴恒速驱动电路，其线路如图二所示。该电路简单， 
成本不高，将其安装在与原线路板同样尺寸的线路板 
上，便可固定在驱动器内。其恒速驱动效果很好下面 
对其工作原理作简单介绍： 

一<当主机不对软磁盘进行读/写时，软盘控制器 
送出的 MOTORON 信号为高电平，经电阻分压，使 Q 2 
基板为高电平， Q 2 饱和导通，因此, V Q 2 C 〜 V Q 2 E =0 V (接 
地）。又由宁 V Q1B = V Q 2 C ， 因此,截止，电机不转。 

二、当主机要进行读/写时，软盘控制器送出的 
MOTOR ON 儈号为低电平。因此， Q 2 轅止。此时，由于 
电机未转， LM 2917 的输入端为零, LM 2917 的比较器 
的同相输入端为零，其反相输入端接正电平（由 K 分 
压），这导致 LM 2917 中的功放由于基板为负电位而截 
止。由图二可知，此时, +12 V 直流电压经 R 8 分压，建 
立了 A 的基极电压，致使 Qi 导通，电机开始转动。 

电机转动后，电机中的测速绕组输出与电机转速 
成正比的信号送 LM 2917 的输入端 （1 脚和11脚），经 


放大、整形以及电荷泵转换成与电机转速成正比的直 
流电压送到比较器的同相输入端，比较器将该信号与 
其反相输入端的输入电压比较，当 V f , 糊>乂反《，并且达 
到某一正值时， LM 2917 中的功放导通，形成由 + 12 V 
— R 8 — LM 2917 中功放的 C 、 E 极地的回路。可 
•知， LM 2 9 1 7 中功放的集电极电压 V C L = V Q 1 B ，因此， 
LM 2917 中功放的导通将使 V Q 1 B 降低，则 Q , 的 C 、 E 间 
内阻增大，致使电机转速下降，也就是说, LM 2917 功 
放的导通程度直接控制 Qi 的导通程度,进而控制电机 
的转速。 t 

如果通过仏给定一个正电压，则电荷泵输出的电 
压与其比较，并且送出一个差值电压来控制 LM 2917 
中功放的导通程度，就可以使电机保持某一恒定转速。 

'当由于某种原因（如加载)造成电机转速下降时， 
电机测速绕组的输出经电荷泵转换后输出的直流电压 
相应下降，而比较器的反相输入端电压不变（由仏给 
定），因此，比较器输出电压降低， LM 2917 中功放的导 
通程度下降，其集电极电位上升，则 V Q 1 B 电位上升 ， Ch 
导通增强，电机的转速提高。 

反之，当电机转速大于给定转速时,比较器输出电 
压上升, LM 2917 中功放的导通程度增强，其.集电极电 
位下降，则 V Q 1 B 电位下降, Q , 导通减弱，电机的转速降 
低。 

综上所述，可知，电机的某一恒定转速由仏给定。 
在实际运行中 ， Qi 的导通程度随电机转速的微弱变化 
而变化，不断地进行调整,使驱动器的主轴转速稳定在 
300转/分。 

装上了如图二所示的恒速驱动电路后，在调整驱 
动器主轴转速时，一面用螺丝刀慢慢地调谐仏，一面 
观察驱动器背面的主轴飞轮上贴着的转速测试卡(该 
卡如图三所示），该卡内环上标有 50 HZ 字样。必须将 
R 4 调到内环出现稳定的测试卡图案为止，此时，驱动 
器的主轴转速为额定的300转/分。如果出现图案转动 
或看不清图案，均为主轴转速不对。 . 

原 SD -50 Mark H 软磁盘驱动器恒速驱动电路有七 
根引出线，现将其说明如下： 
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—— MOTOR ON 弓 I 线 
——地线 
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3.1 HU 


图一 


， + 12V 


红、兰线一-电机绕组引线 
黄、灰线一一测速绕组引线 
棕线 一-+ 12 V 直流电源线 


o 



图二注：困中电容射压值均为 20 V 或 20 V 以上 
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• 初学者园地 • 


APPLESOFT BASIC 入门（连载 ) 



H 我们在继续往下讲之前，先看另一个问 
题。 Applesoft 不喜欢在回答一串 INPUT 提示中加进逗 
号。它只允许在回答一个 INPUT 语句时，在加了双引 
号的数据里使用逗号。但是,这样做显得麻烦多了。看 
来，使用多重回答并为每一个变量单独起名要便利得 
多。 例如： 

10 PRINT “TYPE YOUR LAST NAME ” 

20 INPUT A 

30 PRINT “FIRST NAME ” 

40 INPUT B $ 

50 PRINT “ SPOUSE，S NAME ” 

60 INPUT C$ 

假设你 对 X $ , B $， C $ 的回答分别是 SMITH , 
JOHN 和 MARY ， 下边的 PRINT 语句： 

10 PRINT B$ ; “AND” ; C$ ，， ” 、 A$ 

将显示 JOHN AND MARY SMITH 
假若你想按姓、丈夫名、妻子名的字母顺序打印一 
张名单，下面的程序语句将出色地完成这项 工作： 

10 PRINT A$ 

值得指出的是，三个变量各使用单独的变量名要 
比共同使用一个变量名方便得多。请在你的程序中尽 
量使用简单的变量。 

get ! 从键盘上接收一个字符赋给变量的普通 
方法是使用 GET 命令。和 INPUT 不同， GET 不显示键 
入的字符，不要求在键入字符后按回车键。这个命令的 
格 式为： 

10 GET A$ 

字符串变量 A $用来存贮键入的字符。 GET 也可 
以使用数值变量，如 GET A ， 此时，当你输入的不是数 
字，而是字母时， Applesoft 将回答你 (SYNTAX ERROR 
语法错误）。因此，最保险的办法是使用字符串变量，然 
后利用字符串函数 VAL (我们在下面要简单介绍它） 
把字母转变成数字。 

GET 语句不包括输入提示。因此，要想提示的话， 
便应在 GET 前面用 PRINT 语句提示。对于回答 GET 
命令而键入的字母，如果要显示的话，则要使用另一个 
PRINT 语句。请看 下例： 

• 10 PRINT “TYPE ANY LETTER ”； 

20 GET X $ 


40 PRINT “YOUR LETTER WAS，， ; X $ 

GET 语句可以用来使程序暂停，回答菜单选择 
等。 

let] LET 是赋值语句， LET 把等号右边的变量 

和表达式的值賦给等号左边的变量。 例如： 

LET X = 4. 75 
是将值 4. 75 赋给变量 X 

LET X = X-H 

是将 X 的值加1，将其和再存入 X ，此例中为 5. 
75 。 

只要值或表达式和变量特性相一致，这一规则适 
用于所有变量类型。 

10 LETX$=“4” 

10 LET X=4.^12359 

上边语句都合法。程序中的每一个变量都能通过 
LET 反复使用，实际上，反复使用一个变量是一种良好 
的编程方法，因为它既能节省内存，又能节省运算时 
间。 

LET 也可以省略，换句话说， 

10 LET X = X+4 
10 X = X+4 

这两个语句，在苹果机看来是完全一样的。请你试 
键入： 

10 INPUT “TYPE A NUMBER” ; X 

20 PRINT “WATCH YOUR NUMBER DOUBLE” 

30 LET X = X* 2 ： PRINT X 

40' PRINT “AND DOUBLE AGAIN” 

50 X=X* 2：PRINT X 

请注意， 30 语句使你的数加了一倍， 50 语句使你 
的数又加了一倍，这两个语句的功能是一样的。这一段 
短程序也说明了反复使用一个变量的概 念:在 执行程 
序时，三个不同的值赋给了同一个变量 X 。 

如果你不给变量赋值， Applesoft 则自动设置它的 
初始值，实型与整型变量的初始值是零,字符串变量的 
初始值是 空串： 

X$= “ ” 

READ 和 DATA] 这是一对双生，好象午台上的 

双簧一样，二者必须配合使用，缺一不可。 

DATA 语句，可以建立一张数据表，然后供 READ 
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语句来使用。例如，下面是一个含有五个数字的 data 
语句，数字之间由逗号隔开： 

10 DATA 3. 14,2,86. 2,39. 1,17 

你只要记住以下几条简单的规则，便可很容易地 
编写 PATA 语句： 

1、 DATA 语句可在程序中的任何位置使用， 
可以累积。也就是说，假若你的程序中有五个数据项， 
你可以用上面列举的一行 DATA 语句，也可以建立五 
个独立的 DATA 语句： 


10 

DATA 

3. 14 

20 

DATA 

2 

30 

DATA 

86.2 

40 

DATA 

39. 1 

50 

DATA 

17 


2. 要用 READ 语句读入数值变量(整型或实 
型)的数据必须是数字值。 

3. 任何类型的数据均可读入字符串变量。 

4. 假若把字符串读入数值变量， Applesoft 在 
执行到这里时将出现语法错误信息。 

用 DATA 语句建立数据表后, READ 可把表中的 
数赋值给 READ 语句中的变量。第一个变量取 DATA 
数据表中的第一个数值，第二个变量取第二个数值，依 
• 此类推。当 Applesoft 遇到第一个 READ 语句时，它就 
把 DATA 数据表中的第一个数据项陚予第一个 READ 
语句中的变量。遇到第二个 READ 语句时，就从第二个 
数据项取数，赋予第二个 READ 的变量。 Applesoft 对于 
使用多少个数据项是严格跟踪査看的。如果程序中的 
READ 语句读取的数据超过 DATA 所含有的数据，电 
脑就会显示超出数据范围的信息 “OUT OF DATA 
ERROR IN ' 

象教骑自行车一样，讲清 READ 和 DATA 语句比 
实际使用它们难。还是让我们编一段程序来说明它们 
吧： 

10 READ A $ , B $ , C $ 

20 PRINT A $ , B $ , C $ 

30 READ D 
40 PRINT D 
50 READ E $ 

60 PRINT E $ 

70 DATA “ USING ” ， “ READ &” ， “ DATA ” 

80 DATA 789. 12,355 ,“THE END ” 

90 READ F $ 

100 PRINT F $ 

你可以看到，程序里使用了六个数据项，依次将它 
们賦值给规定的变量。虽然我们把 DATA 语句放到了 
某些 READ 语句的前面及某些语句的后面，但 READ 


语句总能依次找到数据表中的数据。 

1 RESTORE] 在执行 READ 和 DATA 语句时，你 
可用 RESTORE 命令随时返回数据表'的初始点。它后 
面不要任何参数、条件或选择项，只要键入： 

10 RESTORE 

即可返回 DATA 数据表首。以后遇到 READ 语句 
•时，它就将读取 DATA 表的第一项数据。这个命令使 
你能反复使用你程序中的 DATA 语句的数据。 

这些是给变量赋值的最主要的方法。你可看到，变 
量对你编程来说十分重要，因此，应当反复练习本讲中 
介绍的这些语句，熟练地掌握它们。 

变麗类型的转板 I 我们前面已经学过 ， Applesoft 
的变量有三种类型 :整型 、实型、字符串型。有时，在程 
序中可能需要把一种类型的变量转变成另一种类型。 
例如，把实型变量转换成整型变量，或转换成字符串等 
等。有一些语句便是用来转换变量类型的。 

INTOO] 把实型数转换成整形数。它是把一个 

数的小数点部#去掉来完成这项工作的。例如： 

10 X=3. 75 
20 X$ =INT(X) 

30 PRINT X $ 

你看是不是显示整型数了？ INT 函数对变量值不 
进行四舍五入，而是直接去掉小数点部分，显示不大于 
n 的最大整数。若要想使 n 四舍五入，在使用 INT 函数 
前加上 0.5 即可： 

10 X = 3. 75 ： Y=3. 5 ： Z=3. 1 
20 X$ =INT(X-hO. 5) 

30 Y$ =INT(Y-f0. 5) 

40 Z$ =INT(Z+0.5) 

50 PRINT X; “IS ROUNDED TO”; X % 

60 PRINT Y; “IS ROUNDED TO”, Y % 

70 PRINT Z; “IS ROUNDED TO”; Z % 

这时，每一个变量都作了四舍五入。 

相反，从整型数转换成实型数，使用 LET 语句： 

10 LET X = X% 

或者 

、 10 X = X% 

lVAL(X$")l 把字符串转换成实型或整型变童。 
格式是： 

10 X = VAL(X$) 

或者 

10 X%=VAL(X$) 

字符串 X $ 中第一个字符应为数字，否则整个字 
符串将转变为零。乂/^(乂$)首先査看字符串表达式 
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1 第一个字符是不是数字,若不是，将它的值 i 为零。例 
如： ' 

x$ =“3. 1416”. 

X = VAL ( X $ ) 

PRINT X 

这时显示 X 的值为 3. 1416。 如果把 X $变成下面 
的情况，则会得到不同的 结果： 

X $=“ P 1 = ^1416” 

X = VAL ( X $) 

PRINT X 

这时 X 的值则为零。而下面的情况，结果也不一 
样： 

x$ =“3POINT1416” 

? C =： VAL ( X $) 

PRINT X 

这时 X =3。 只要仔细地检査要转换的字符串表达 
式，就会避免这些差错。 V 

在你练习编程时，如果对输入数据的语句误输入 
字符串，屏幕出现 REENTER 的出错信息。为了避免这 
一点，一般都是用字符串变量来回答输入语句，然后用 
VAL 进行转换。 例如： 

10 INPUT“ENTER A NUMBER :”; X $ 

20 N = VAL ( X $) 

30 PRINT N 

| STR $、 X )| 将数值变量转换成字符串变量。要 

记住，转换的目的变量是字符串，格 式为： 

10 X $= STR $( X ) 

这一语句对显示数字整齐 V 小数点对齐十分有用 ; 。 

I 字符串处理 I 字符串处理是一种有用的实用技 
能，它使你从一个字符串中抽取特定的字符，称为“子 
串”。弄清楚字符串处理的最好方法便是在实际中使用 
它。 

LEFT $( X $,^)1 取字符串乂$中最左边的 n 
个字符。例如，若 X $ = “PROGRAMMING ”， 那么： 
PRINT LEFT $ ( X $ ,3) 

显示出 PRO 。 

假若 n 的数值比表达式中的字符数多，则只取出 
字符串实有的字符，多余的位删掉。当然，也可以把取 
出的子串赋值给程序中的另一个 变量： 

10 X $ = “PROGRAMMING ” 

20 Y $ = LEFT $ ( X $ ,4) 

30 PRINT Y $ 

这时，屏幕显示 PROG 0 LEFT $ 也能处理用双引号 
括起来的字符串 ，如： 

20 Y $ = LEFT $ (“ PROGRAMMING ，，，4) 


30 PRINT Y $ 

RIGHT ( X $， n ) l 取字符 串 X $ 中最右边的几 

个字符。我们仍用上边的同一字符串 X $: 

PRINT RIGHT $ (X $ ,4) 

这时 显示: MING 。 也可在程序中直接从字符串取 
字符赋值给另一变量。格式 如下： 

10 Y$ =RIGHT$ (“PROGRAMMING” ， 3) 
20 PRINT Y $ 

屏幕上将显示 ing 。 

MID$(X$, n )[ 从字符串当中抽取字符。如果 

使用下边的命令 格式： 

MID$ (X$ ， n) 

则取出的子串是从 X $ 字符串第 n 个字符开始直 
到结尾所有的字符。 例如： 

PRINT MID$ (“PROGRAMMING” ， 4) 

屏幕 显示 : CRAMMING 

如果使用的是字符串变量 X、$ ，结果相同。 

另外，还有0—种确定取字符的 方法： 
v MID$ (X$ ,n,m) 

这时，是从字符串 X $的第 n 个字符起向右取 m 
个字符。 

PRINT MID$ (“PROGRAMMING ，，， 4,3) 

想一想，会出现什么情况？是不是显示 GRA 三个 
字符？ 

以上三个语句初看起来虽然很琐碎，但却有很大 
实用价值。请你自己试编几个字符串表达式，练习从字 
符串中抽取特定的字符，以熟练掌握这几个语句的用 
法。 

len ( x $)| 用来测定字符串字符的个数。如果 

我们仍使用上面的字符串例乎 （ x $ = 
“PROGRAMMING” ） ， 那么： 

PRINT LEN(X $ ) 

则显示11。我们也可以使用字符串表 达式： 

PRINT LEN(“PROGRAMMING ”） 

得岀相同的结果。你也可把得出的结果赋值给程 
序中的一个数值 变量： 

10 X$ = “PROGRAMMING ，， 

20 X = LEN(X$ ) 

30 PRINT X 

结果是 X 等于 11 。 LEN 语句在屏幕显示格式或数 
字行对齐方面特别有用。 

字符串连接 I 在两个或多个字符串之间用加号 

(+ ) 连接起来，实现字符串的合并。请看下面一段短程 
序： 
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10 X $=“ PRO ” 

20 Y $= “ GRAMM ” 

30 Z $=“ ING ” 

40 PRINT X $+ Y $+ Z $ 

屏幕上将 出现: PROGRAMMING 。 

Iffl ] 整型、实型、字符串型变量每一种都可以 
排列成一张表，称为数组。这种表共用相同的变量名与 
变量类型，但使用一种数字指示，指明表中使用哪一个 
元素，这种数字指示称为下标。下标可以是正整数或代 
表正整数的变量，用园括号括起来，位于变量名后面。 
例如： 

X $ ( 1 ) = “ PROGRAMMING ” 

下面一段短程序说明数组变量的一种使用方法： 

10 X $ ( 1 ) = “PROGRAMMING ，， 

20 X $ (2) = “THE APPLE ” 

30 X $(3) = “ ISFUN ” 

40 INPUT “WHICH STRING ? (1-3 )”；N 
50 PRINT X $ ( N ) 

第 10 — 30 行，程序，把每一个字符串賦值给各自 
的数组元素。在40行，要求用户词答一个数，并把这个 
数赋给变量 N 。 在50行，变量 N 用来作为数组元素的 
下标。 

到现在为止，我们介绍过的变量都属于简单变量。 
在运行程序时, Applesoft 自动为各简单变量向内存空 
间赋值。它自动为数组变量最多陚值11个元素(下标 
0到10)，如果数组元素紐过11个时，则要求有足够大 
的内存空间，这时要使用 DIM 语句，即在数组变量执 
行之前，按下面的格式规定数组的大小： 

DIM X $ (100) 

这一语句是为数组元素准备100个房间（从0到 
100,实际上为使程序更简洁，0常略去）。 

数组元素也可以有两维，这是多维数组，本文不准 
备谈它的使用。 

| 变量程序 | LISTING 1中的程序演示了本讲中介 

绍过的一些新命令。你可以注意到它用了许多上一讲 
介绍过的 PRINT 命令。请将这个程序键入你的电脑， 
并运行它,实际验证变量的各种用法。 

LISTING 1 ： VARIABLES 
10 REM VARIABLES 
20 TEXT ； HOME ： NORMAL 

30 VTAB 7: PRINT “THIS PROGRAM DEMONSTRATES 

the techniques w ： print “described in this 

ARTICLE 。，， 

40 GOSUB 260 

50 INVERSE：PRINT “THE INPUT STATEMENT：NORMAL 
60 VTAB 7 ： INPUT “ENTER YOUR FIRST NAME :，％ A $ 


70 VTAB 8 : INPUT “ENTER YOUR LAST NAME》B $ 

80 VTAB 11：PRINT “YOUR NAME IS:”;A$“ ” ； B$ 

90 GOSUB 260 

100 INVERSE：PRINT “LEFT $ ,RIGHT $ , AND MID $ ”： 
NORMAL 

110 A$=A$+B$ 

120 VTAB 7 ； PRINT “THE FIRST 3 LETTERS OF YOUR 
NAME, w ,LEFT$ (A$ »3) 

130 VTAB 10 ： PRINT “THE LAST 3 LETTERS OF YOUR 
NAME： W ；RIGHTS (A $ ,3) 

140 VTAB 13.PRINT “THE MIDDLE 3,LETTERS OF YOUR 
NAME: ”, MID $ (A $ , LEN (A$ )/2,3) 

150 GOSUB 260 

160 INVERSE：PRINT “READ AND DATA”:NORMAL 
170 DIM N $ (10 )： VTAB 5 ： PRINT “THE FOLLOWING 
WORDS HAVE BEEN READ INTO ”： PRINT “THE 
ARRAY N $ () FROM DATA STATEMENTS w ：PRINT 
“CONTAINED IN THIS PROGRAM :”： PRINT 
180 FOR X=1 TO 10 ： READ N $ (X )： PRINT N $ (X )： 
NEXT 

190 GOSUB 260 

200 INVERSE：PRINT “ARRAYS”:NORMAL 
210 VTAB 5: PRINT “HERE IS THE CONTENTS OF THE 
ARRAY N $ ( )”： PRINT READ “FROM DATA 
STATEMENTS IN THE4AST ”： PRINT “SECTION :”： 
PRINT 

220 FOR X=1 TO 10：PRINT N $ (X) ：NEXT 

230 GOSUB 260 

240 PRINT “THAT，S ALL” 

250 END 

260 VTAB 23：PRINT “PRESS RETURN TO CONTINUE ”,： 
GET R$ : HOME ..RETURN 

270 DATA ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN ， 
EIGHT, NINE, TON 

变量简表 

1 . 变量名不应含保留字。变量名第一个字符应为 
字母，后边可跟237个字母或数字。 

2. 变量名只有前两个字符在区别不同变量时有 
效。 

3. Applesoft 使用的变量有三种类型： 

a . 实型变量取值范 围：从 一 9 . 99999999 E 4-37 
到 +9. 99999999 E +37。 

b . 整型变量，从一32767到+32767的整数，整 
型变量用标示符％表示。 

c . 字符串变量，含有255个英文字母和数字，用 
标示符$表示。 

4. 可从键盘或从程序中向变量陚值。 

I input ! 1. 此命令在屏幕上显示一个问号 (?） ，让你 
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输入一个值，存入规定的变量。 

2. 在一个 INPUT 语句中可以向多个变量赋值，多 
个变量之间隔以逗号。 

「 INPUT 提示 i 1•提示是在要求输入数据之前显示的 
信息。 

2. 它告诉你应该输入哪种类型的数据。 

3. INPUT 语句中的提示要用双引号括起来，用分 
号结束。 

get \ 1. GET 是从键盘接受一个字符，输入的这^字 
符屏幕不显示。 

2. 回答完 GET 语句后不用按回车键。 

3. 回答 GET 语句时，一定要赋值给字符串变量， 
以后需要时再转换。 

4 . GET 没有提示众若需提示.信息时，可使用 
PRINT 语句。 

let ] 1. let 是一賦值语句，用来给定量賦值。 

2. LET 把等号右边的变量或表达式赋值给等号左 
边的变量。 

3- 程序中的每一个变量均可用 LET 语句多次賦 
值。 

4. 只要程序中左边有一变量,后跟一个等号，即可 
使用 LET 语句。 LET —词可省略不用。 

READ ^ DATaI 1. DATA 建立一张数据表，供 READ 
使用。 

2. DATA 语句可以位于程序中的任何位置，可以 
累积。 

3. DATA 语句中各数据项之间用逗号隔开。 

4. READ 语句用来把 DATA 中的数据賦值给程序 
中的变量。 

5 . 每一个 READ 变量依次取数据表中的数据， 

6. READ 每读取数据表中的一个数据， DATA 指 
针指向数据表的下一个数据。 

7. RESTORE 语句将指针返回数据表的第一个数 
据，令 READ 重新读取 DATA 数据。 

8. READ 超出 DATA 数据项时，出现 OUT OF 
DATA 出错信息。 


变量类型的转换 


l . INT ( X ) 用来把实型数转换为整型数，去掉一个 
数的小数点部分。 

2. LET 可用来把整型变量转换为实型变量。 
3.7八1^(乂$)将字符串转换为实型或整型值。字 
符串 X $ 的第一个字符应为数字，否则字符串将转换 
为零。 


4. STR $ ( X )或 SRT $ ( X %)把实型或整型变量 
转为字符串。 

「奉符 串处理 I 1. LEFT $ (X $ ， n ) 取字符串 X $中最 
左边的 n 个字符。 

2. RIGHT $ (X $ ， n ) 取字符串 X $中最右边的 n 
个字符。 

3. MID $ (X $ ， n ) 取字符串 X $中从第 n 个到最 
后结尾的所有字符。 

4.1^10$(\$,11，| 1 1)在字符串乂$中从第11个字嫌 
符向右取 m 个字符。 

5. LEN ( X $ ) 确定字符串 X $中的字符数。 

6. 两个或多个字符串之间可以用加号 (+ ) 连接起 
来合并成一个字符串。 

MM i . dim % 令可以把变量组成一个表，称为数 
组。 

2. 若忘记确定数组的大小, Applesoft 自动设定最 
大下标为10。 

3. 下标用来标识数组中的每一个元素，确定其位 
置。下标用园括号括起来。园括号中的下标可以是数， 

数值变量或数表达式。 . 

冯静编译自 《 NIBBLE 》1989.9 期 

公 告 


原《苹果园》杂志聘任的杂志征订代理人，随杂志 
更名自然转为《中华学习机》杂志的第一批征订代理 
人，现重新公布 如下： 


姓名 

地址 

邮政编码 

马开云 

天津碱厂机械车间(转） 

300450 

吴安栋 

济南林祥南街166号 

250001 

王玉主 

无锡市蠡园水秀饭店 

214075 

景成循 

上海市普陀区曹杨五村436号 

200062 

倪建华 

上海市南江县新场乡中心校 

201314 

杜永平 

四川省万县市师专服务部 

634000 

杜华光 

大庆市林源炼油厂中学 

163813 

俞鹏 

南通市如东县教育局 

226400 

孟时成 

浙江省绍兴教师进修学校 

312000 

《中华学习机》杂志社第二批征订理人如下： 

姓 

名 地址 

邮政编码 

何海群 

长沙市公安专科学校 

410006 

许文平 

西安市交通大学8817号 

710049 

陈兆前 

浙江大学58信箱 （10 舍一 213) 


倪秀峰 

上海市东汉阳路246号 

200080 


本刊希望有更多的征订代理人 
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粮食行业中面粉加工是其主要的工业生产环节， 
而面粉生产有着若干个经济技术指标,这些指标互相 
制约，偏废任何一个指标都是不经济的。几十年来，在 
整个面粉生产过程中，信息反馈迟缓，全凭操作工人的 
眼观手感等感官来操作，随着科学技术的发展，迫切需 
要现代化的监测控制系统来指导现场生产，以尽快找 
到最佳经济点。 

SMWJ —— A 面粉生产指标微机实时监测系统就 
是一个操作指导控制系统。它的主要任务是采集现场 
信息(面粉、麩皮袋数和电度表转数等），然后进行加工 
处理，并将结果信息及时显示和打印出来，使操作人员 
可以随时了解生产的瞬间变化趋势，提高操作的准确 
性，较快地找到最佳经济点，提经济效益，因此被称之 
为操作工人的“眼睛”。 

一、 概述 

在 TP 801 T - B 单板机的基础上，对输入输出通道 
和系统软件重新设计，组成了适合面粉加工的工业控 
制机。单板机的三总线通过三态缓冲器与外部三总线 
相连。，模拟输入量通过隔离放大进入外部三总线。开 
关量、输入/输出量均采用光电隔离，抑制干扰，保证安 
全。数据传送采用程序査询和中断相结合的方法，软件 
按模块化结构设计，在管理程序调度下运行。 

二、 硬件结构(见图一）。 


该系统由主机、打印机、控制电路板、显示屏、电源 


等部分组成。 


1.主机 ：选用 TP 801 — B 。 Z 80—— CPU , 
EPROM 2716(10 K ), RAM 6116 (6 K ) ， Z 80— PIO — 片， 
Z 80 — CTC 一片，时钟频率为 2 MHZ 。 

存储器地址分配如下: 


地址 

0000 H 〜 07 FFH 
O 800 H —— OFFFH 
1000 H —— 17 FFH 


用途 

监控程序。 
应用程序。 
应用程序。 


1800 H —— 1 FFFH 
2000 H —— 27 FFH 
2800 H —— 2 FFFH 


控打程序。 
应用程序工作区。 


2. 键盘与显示： 

(1) 键盘: 在线使用的专用键盘，十三个4令键，一 
键多用。它决定七种生产方式，四种打印格式，调整年、 
月、日、时、分、秒，键的状况通过 74 LS 244 缓冲器进入 
主机，占用两个口地址，主机査询键的状态，以判断需 
要执行什么操作。见图2键盘原理图。 

(2) 显 示:把 需要显示的生产指标数值由 74 LS 273 
输出，经过驱动器加到七段 LED 数码管上，用16个 
LED 数码管分四组，一次显示四种生产指标及其相对 
应的数值。而又将16项生产指标分为四组，以轮流分 
时显示的方式，在五分钟内显示两次，全暗一分钟，以 
区别刷新后五分钟内的新的数值。每送出一组指标时， 
显示器上以相应的汉字指标名称和单位显示出来，生 
产指标数值的显示用每组四个共四组的 led 数码管， 
设置在显示器的下方，占用16个口地址，汉字显示设 
置在显示器的中间部位，占用一个口地址，用数据字确 
定是哪一组的汉字，确定之后，便接通指标显示灯，则 
亮，相对应的生产指标的汉字就通过灯光投射显示在 
显示器上，一目了然。 

时钟显示由六个 LED 数码管组成，设置在显示器 
的右上角，运行前可以校对年、月、日，运行过程中校对 
和显示时，分、秒。 

3. 采 样:其 原理框图见图3 

通过传感器以五分钟为一个周期，把现场面粉打 
包机的面粉袋数和麸皮打包机的麩皮包数及有关的 
电度表的转数等信号转变为开关量的电信号采集来， 
经过光电耦合器隔离、整形，由 PIO 进入计算机。计算 
机的 PIO 的 A 口置为输入方式，为了满足打印要求 ， B 
口置为位控方式。每五分钟刷新一次。 

五台打包机的信号线接到 PIO 的 P >1。一 P 烏上， 
两台麸皮打包机的信号线接到 P 戌 、 P 々上 ，五只电度 
表的信号线接在 PIO 的 P B 。 一 P 凡上。七种生产方式 
是由键的状态和软件控制来完成的。如生产特二粉、次 
粉，则按下键 K 0 、 K 5 、 K 7 ，且按下相应的班次（如甲 
班)键 K 〖，则甲班在生产上述二种面粉。其他生产方式 
和打印方式等按下相应的键即可。本设备灵活、简便。 


3000 H —— 27 FFH 字库打印格式。 4•打 印： 

3800 H —— 3 FFF (2 KSRAM 6116) 监控程序工作区（占 打印机选用 TP 801 P -24 点阵式微型打印机，每 


96字节)。 


行印24个 5 X 7 点阵的字符。可以打印字符、图案和少 
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量汉字。这种打印机具有“节拍式限时中断”方式，在这 
种方式下打印回程时输出一个 “ return ” 信号。该机 
不带 CPU ， 由主机 CPU 执行控打程序，控制打印机的 
工作，因此在打印机工作时，主机 CPU 不能执行计时 
采样和运算程序等，为此把 “ RETURN ” 信号接到 PIO 
的 PB 上，且把 B 口置为位控方式，这样打印机在打印 
完成一点行返回时，请求中断，执行中断服务程序，完 
成采样、计算和计时等项工作，使系 f 统保证正常工作。 
三、软件部分 、 

(一) 组成 :整个 系统由3700多条命令组成。其主 
要程序为： 

1. 键盘整询程序； 

2. 采样 程序； 

3. 计算主 程序； 

4. 显示主 程序； 

5. 打印程序》 

6•自诊断 程序； 

7. 计算打印程序 ； 

8. 采样处理程序^ 

9. 打印中断服务 程序； 

10•厘米时产量程序； 

11•时钟程序； 

还有28个子程序，两个字模表，自定义26个汉字 ，如： 
小时，面粉、产量、机、袋、本、特、标、次、麩皮、比、电、 
耗、吨、厘、米、磨、白、度、上、班、包。 

整个软件功能强、灵活，使硬件显著节省,从而使 
该系统成本降低。 

(二) 主要程序 框图： 

文中绘出主程序流程图八图 4) 计算程序流程图 
(图5)，其他流程图略。 

(三) 该系统功能 

1. 采集开关 量:本 系统为十二个(可由需要而定）。 
2•采集一个模拟量。 

3.确定生产 方式: 七种。 


注： 特 —— 特一粉或特二粉 

标-标准粉 

次一次粉(低于标准粉的面粉）。只要按下 
相应的键即可达到所要求的生产方式。 

4. 显示: 输出显示十六项生产指标。 


动态指标十二项 

静态指标四项 

特粉产量(袋/时）特粉鉄比％电耗 KWh/h 
标粉产量袋 /h 标粉鉄比％吨电耗 KWh/T 
次粉产量袋 /h 次粉鉄比％磨机电耗 KWh/h 
含扶皮产 M 袋 /h 白度％厘米时产 kg/cmh 

面粉总产 M 袋/时 
m 皮产垃 袋/时 
总粉#比％ 

小时电耗 KWh/h 


显示时，其顺序自上而下分四组(即四行)轮流显示，每 
组(即每行)显示时间为30秒。 

动态指标反映生产趋势，刷新周期为5 分钟; 静态 
指标显示上一小时的实际累加值，刷新周期为一小时， 
为均衡生产提供数据。 

5. 实时时 种:在 校正时，时钟显示年、月、日，或时、 
分、秒;在正常进行时，显示时、分、秒。 

6•打 印: 方式为四种。每种14项生产指标。可以 
打印 :本班 、上班、一小时、八小时的生产指标。前三种 
为随机打印，后一种为自动打印。 

7. 人机 联系： 

设有一个专用控制键盘，用于完成时间校正，确定 
生产班次、选择生产方式和打印方式等。 

四、经济 效益： 

该装置具有功能较强、操作方便、性能价格比高、 
结构紧凑、体积小等优点。自1987年以来相继在多个 
厂家推广应用，均获得较好的经济效益和社会效曾 
先后获得中华人民共和国商业部科技进步四等^和省 
计算机优秀项目二等奖等。 


地址总线 
数据总线 
控制总线 


74LS138 


74LS139 


74LS27 


74LS244 


74LS04 


MWM 

按 1 键 


机号 

1# 

2# 

3# 

4# 

5# 













1.500 

特 

特 

特 

特 

特 

2.050 

标 

标 

标 

标 

标 

3. 005 

次 

次 

次 

次 

次 

4. 221 

特 

特 

标 

标 

次 

5. 140 

特 

标 

标 

标 

标 

6. 302 

特 

特 

特 

次 

次 

7.041 

标 

标 

标 

标 

次 


— K 
— K ; 丙 
——， K 2 乙 
——， K 3 甲 

—— K /輿 启动 

IKO 启动 

—— K 1 校正 ▲ 

—— K 2 上班/年•时 

-柃本班/月•分 

- K 4 一小时/日•分 

—— K 5 特粉/减•加 
IK 6 标粉 

— K 7 次粉 
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图二键盘原理框图 
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2732 


X3 


地址总线 
数据总线 
控制总线 


74LS244 


丁 


斗动电路 I I A/P 1 


建 13 个 





图四主程序流程图 


(图五下转48页） 


传感器 


PAO, 


去抖动电路 


微机内 


■ 



s 

1 耦合器 

! 

IEO 

- 1 - 


PA7 


IEL 


PIO 

PBO 〜 PB4 


PB7 




PIO 


PETURN^ 


74LS138 


74LS139 


74LS27 


三总线 


J 74LS273 1 74LS04 | 


1 75492P 1 1 指标 ^ 示灯 ~1 iSi 


LEDX16 




TP801P-24 


图一 W 件结构框图 


去打印机 




Z80 — CPU 



图三采样原理框图 
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• 电脑神 通 • 


陶瓷“三度”微机联机检测系统 


江西省陶瓷质量监督检验站 吴坚 


内容提 要:在 陶瓷检測技术领域中，陶瓷产品的光 
泽度、透光度和白度（统称为陶瓷“三度”，下同）是三个 
评价陶瓷质量的重要指标。本文介绍在 APPLE II 微机 
上，通过 A / D 接口电路与外设陶瓷光泽度、透光度和 
色度（适用白度）三个探头装置的联机，实现对陶瓷“三 
度”试样的分时检測數据的自动采样、数据处理、报表 
打印和数据存储等方法。本系统測定方法参照采用了 
现行的国标方法，并结合数理统计理论给出较为科学 
的表报数据。同时还研究设计了一种新型的积分球式 
透光度探头和色度探头（适用白度測定），使其比现行 
采用的透光度计和白度仪有较高的精确度和科学性。 
本系统已在 APPLE II plus 型微机和 XMF —— I 型中华 
学习机上通过调试运行。 

一、检测原理 
1•色度测试 

探头装置设计结构如图1所示。其照明观察条件 
采用垂直/漫射 ( o / d ) 方式。其中，光泽吸收并可进行消 
光泽和有光泽下的 测量; 在积分球体内开有4个孔，每 
个孔装有由硅光敏管和相应滤色片组成的探测器 T ， 
用于模拟标准观察者 Xi 、 X 2 、 Y 、？。 该装置满足 
GB 39 7 9 — 8 3(物体色的测量方法)第 5. 1. 4条规定。 



S 光源 P 挡板 T 探测器 

K 透镜 A 试样 1 滤色片 

N 光线导入孔 Q 试样孔 T 2 P — N 区 

O 光泽吸收井 T 3 引线 

图1色度探头结构图 
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通过在系统中加入滤色片,模拟一定标准光源下 
的文 a )、 Ya )、 z ( x ) 而获得试样色反应函数的 X 、 Y、Z 
三刺激值。试样白度的测试方法与之相同，但描述方法 
不同。 

2. 透光度测试 

探头装置设计结构如图2所示。试样的透射 率为： 
一 It Ki-K' 

T= 1 ^ == Ko—K f 

log (It — Io) =-ed+b 

对于某试样的 n 个坯体，可测得一组厚度 d 不同的数 
据。 

( I ) 1 ,也、（|) 2 ， d2 、 ……、（^^、如 

用直线拟合，便可求得相应的消光系数 e 和表面 
反射系数 b ， 而获得试样透光度的相对百分强度。 


V M 



s 光源 T 探测器 A 试样 
K 透镜 N 入射孔 R 挡板 

图2 透光度探头结构图 

3. 光泽度测度 

探头装置结果如图3所示。试样的光泽度 值为： 
Gs (45 0 ) x = Gs (45 °)o 

KJ 一 KZ 

其中试样测试的平面最大反射率，表示为该试样的光 
泽度值。 

於 •令.今 ■•今 •今今.今•令•令.•今•令 

\ * 此文在中国 Apple 微机协会第三届年会上被评为优+ 
\秀论文 t 
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读写 R/i(18) 
FROM 微机游戏接口 


光源程 ,_, 

mr — s™ 


5 A/D 转换接□电路框图 

三、 系统软件设计 

陶瓷“三度”微机检测系统的软件，分外部介面和 
内介面两个方面进行分析设计。外部介面的设计以系 
统面向用户的实用性及其改善 CRT 屏幕视读操作为 
主，内部介面的设计则以程序积木结构的灵活性和提 
高系统采样速率为主。 

1、 外部介面设计 

包括:①分别采用闪动光标、条形光标和流动光标 
以便对各阶段当前的操作状态作区别和醒目提示。例 
如夜试样测试时，在数据表域中的数据栏位上设定一 
个相应的（可移动)条形闪动光标指针，指示当前釆样 
窗口的测试数据将待存放的位置。②采用主、次菜单的 
层次和嵌套结构形式，且用户只需按动菜单提示键，系 
统即可进入相应的操作、处理状态或返回。同时对其它 
的误键动作，系统均与屏蔽。③将屏幕分成若干个显示 
窗口： 标题部、数据表域、菜单反显窗口以及操作提示 
和动态采样窗口，以便易于用户的视读操作。④参照采 
用现行使用的陶瓷“三度”国标测定方法，并同时计算 
出各检测数据的数理统计值，以便进行检测对比和综 
合评价。 

2、 内部介面的设计 

包 括:① 程序设计采用积木结构模块的形式，这对 
于模块的设计装配和调试，主程序中关于标准参数的 
修正，都较方便。②程序采用 BASIC 语言和6502机器 
语言编写。机器语言程序总占用系统的$9000〜 
$ 95 FF RAM 内存空间，其中包括了测试采样、帧画面 
图形、主菜单选择指针、键盘搜索等子模块，可以提髙 
采样速率和画面切换效果。 " 

主程序设计框图如图6所示。图7所示是一例光 
泽度测试主菜单屏幕的帧显示画面。 

四、 小结 

将微机(尤其如 APPLE II 和中华学习机此类价廉 
的低档机)应用于检测技术中，实现多种(或多台)分析 
测试仪器联机检测的一机多能化，对改造我国目前实 




图! 


1、光源 2、升色温滤色片 3、聚光透镜组 

4、光源光栏 5、入射透镜 6、接收透镜 

7、视见函数修正滤色片 8、接收光栏 

9、光接收器 £1 = £2 = 45° 

图3镜向光泽度探头结构图 

二、系统硬件配置 

系统硬件配置如图4所示。稳压电源采用抗扰动 
的无级平滑稳压电路。其设计参 数为： 

电源电压 :220 V 士 10%，5 
0/60 H , 

输出电压 :6 V ，9 V 
最大输岀电流 :5 A 
电压调 整率: 0. 005% 


CRT 


pH APPLE 系统主％ I 


[WWW] 


la 盛驱动器 I 


1 ~~ H A / D 转 _ 接口电路 I 


1 稳压电源及侖号接口电路丨 










图4系统组成框图 

电流调整率: 0.1 如 
' 工作温度:0〜 60 °C 

信号驱动电路是陶瓷“三度”探头装置的选通切换 
继电器电路，主机通过游戏 I / O 接•口的 AN 0/ AN 3 开 
关信号线，发出控制选通信号，由外设槽 A / D 转换接 
口卡上的译码器选通输出，使对应的继电器吸合/断 
开，接通/关闭相应的探头光源。 A / D 转换电路如图5 
所示。 


II 


缓冲器 


II 放大器 
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验室大量分析测试仪器的落后面貌，意义深远。同时， 
亦是使我们的实验室向现代化迈进的一条经济捷径。 


系统开机，自引 I 


1 r 


丁 


主菜单操作选择 


图 6 :程序设计框图 


图 7 :光泽度测试主菜单桢屏幕 


********************* 
$敬告读者： % 

^ 凡欲参加中国中华学习机普及协会 J 
$者，请直接与协会办公室联系。 % 

* 协会 地址： 北京市西三环北路甲45泛 

^ 邮政编码：100081 ^ 

********************* 
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( 上接 45 页 ) 



① 


图五计算程序流程图 


传送 a 打印 



PLOSSINESS TEST 



Ol(X) 

G2(X) 

G3(X) 

G4(X) 

G5(X) 

Gm(X) 

(1) 

72.3 

72. 1 

69.5 

74.0 


74. 0 

(2) 

68.4 

65.5 


66.6 

66.5 

68.4 

(3) 

72. 7 


71.6 

71. 3 


72.7 

(4) 

69.8 

67.7 

66.3 

68.8 

69.5 

69.8 

(5) 


77.5 

77.2 

77.6 


77.6 

(6) 

75.6 

75.4 


75.8 


75.8 


1=>TEST 2=>COUNT 3=>LPRINT 4=»DOSR/W 
5=> APPEND 6=> EDIT 7 => DELETE 8 => 
RSTART 

〔 * 〕 ： press 〔 RETURN〕to show accept this 
press 〔 SPBAR〕to show choose next 


编辑部负责 同志： 

《苹果园》杂志办的很有特色，有些文章有很大 
的实用价值。 

希望贵刊今后能登载以下有关中华学习机 
CEC —I 的 文章： 

1. 打印卡、 EPROM 写入卡、存贮器扩充卡、 Z80 
卡、 80 列卡、可编程音乐合成器卡、 A/D 卡、 RS- - 
232 卡等硬、软件。 

2. 怎样进行动画设计，如何编写游戏程序。 

3. APPLE II 与中华学习机 CEC—— I 在硬、软件 
上，有何异同。 

4. 中华学习机的维修、改进、使用技巧、经验交 
流等。 

5. 刊登高质量的游戏、教学〔管理等程序。 

读者: 陈永强 
1990. 元 . 8 
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华光 IV 型电子出版系统 

HUAGUANG 4 TYPE ELECTRIC PUBLISHING SYSTEM 


印字机 


文稿录入 


姐版终蠕 


主机系统 mvm 

most typcsctti 

COMIHJTCR cMirnni i 


田片繪入 

PICTURE AND 
PROCESSING 


滚瘺式照樓机 


WEIFANG COMPUTER CO^R 

华光 IV 型电子出版系统是潍坊计算机公司奋战十几年 
的高技术成果和中华民族文化的结晶。 

华光， 是潍坊计算机公司的产品注册商标。 

国家华光电子出版系统的生产基地在潍坊。 

华光电子出版系统 自 1985 
年通过国家级鉴定以来，荣获 
多项国内外大奖和多次在世界 
银行招标中标，1989年又独 
家获得国家质量银奖。 


华光电子出版系统最新 

成果有： • 高集成度、高可靠性、高功 
能照排控制机 TC ——89。 • 国内最新型 

全版面显示，多功能大屏幕报纸、广告理 
系统 • 最新报版、书版、杂志版合用编辑 
系统 • 高清晰度、多功能图片照片处理系 
统 • 朝文、维文、蒙文、傣文、藏文、阿拉伯 
文等多种文字处理系统 

华光用户已遍及全国(含台湾)及 
东南亚地区。华光电子出版系统是印刷出 
版界朋友的忠诚伙伴。 


刺 
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潍坊计算机公司是开发、生产、经营计算机、汉字信息处理、通信等 
办公自动化系统设备的综合性高技术实业集团公司，国家二级企业。 
该公司为顺应国际计算机发展的新趋势，建立了以计算机 （ Computers ) 
通信 （ Communications ) 和汉字信息处理 （Chinese Character Processing ) 
技术等特色和优势的“三 C ” 产品结构。 


主要产品有： ， 

位、 16 位各类微机 
X 16 - 2000 门用户程控电话交换机 
※各类无线电话机和移动电台 
※计算机——激光汉字编辑排版系统 
※高、中、低档台式排版系统等 


I!!!!!! 


II15 


mi 


□ iiSi 


III 


111 


S 


hi % 

其中“计算机——激光汉字 
编辑排版系统”是八五年中国 
十大科技成果之一，多次荣菊 
国内外大奖，曾多次代表中国 
参加国际展览，并获得二项目 
际专利和三项国家专利。 


中國 • 濰坊計算機公司 




















































